Public Function AboutBox(ProgrammName As String)
Dim rest1 As String
Dim Schaeden As String
Dim schaedenboxtitel As String
Dim schaedenboxtext As String
 
schaedenboxtitel = "Über " & ProgrammName
Schaeden = "sXene Software übernimmt keine Haftung für aufkommende Schäden." & _
  "Wenn Sie Systemprobleme nach dem Benutzen von " & ProgrammName & " haben," & _
  "wenden Sie sich an den sXene Software Support. Diese Adresse ist im" & _
  "Impressum von http://www.sxene.de zu finden. Schicken Sie eine E-Mail an" & _
  "Support@sxene.de." & vbCrLf
rest1 = "sXene Software Productions 2004-2005 (C) 2004-2005 by sXSoft." & _
vbCrLf & "http://www.sXene.de" & vbCrLf & vbCrLf & "sXSoft, the sXene Software" & _
"logo and other names of sx/sxene are NOT registred." & vbCrLf & vbCrLf & _
ProgrammName & "(C) 2005 by sXene Software" & vbCrLf & vbCrLf & "(C) 2005" & _
"All Rights Reserved."
schaedenboxtext = Schaeden & rest1
End Function

Private Sub Form_Load()
  AboutBox "GetRight 2005"
End Sub
 
Private Sub anmMain_DblClick()
  MsgBox schaedenboxtext, vbInformation, schaedenboxtitel
End Sub

_______________________________________
VD DeV Compile Statics.........
Loaded!
sXNet Engine Statics...............
Loaded!
Intelligence................................
Error!