Option Explicit
 
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()
ShellAbout Me.hwnd, App.Title, "Diese Anwendung wurde noch nicht registriert" & _
  "!!" & _
Chr(13) & Chr(10) & "Bitte melden Sie sich bei uns...", Me.Icon.Handle
End Sub

cu

ari