Code: Alles auswählen
Sub nachricht_anzeigen
	MsgBox  "Dies ist eine Meldung ......." _
	,  16,  "Wichtige Nachricht !!!"
End SubModerator: Moderatoren
Code: Alles auswählen
Sub nachricht_anzeigen
	MsgBox  "Dies ist eine Meldung ......." _
	,  16,  "Wichtige Nachricht !!!"
End SubCode: Alles auswählen
Sub Main
sInfo= "                                            T E S T                                                         "
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & sInfo
sTxt = sTxt & len(sInfo) & " Zeichen!" & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
sTxt = sTxt & chr$(13)
msgbox sTxt,,"-                                     " & sInfo & "                                     -"
End Sub