Wer kennt ihn nicht, den Info-Dialog von Microsoft.
     So greifen Sie darauf zu und können auch Ihren eigenen Text
     dort hinterlassen:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

 FORM-CODE

   Private Declare Function ShellAbout Lib "shell32.dll" _
      Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, _
      ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

   Private Sub Command1_Click()
      x = ShellAbout(Form1.hwnd, "Power mit Visual Basic", _
      "M.Schmitt", Form1.Icon)
   End Sub

   Private Sub Form_Load()
      Command1.Caption = "Info"
   End Sub