AboutBox

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

'Inserire in un evento (tipo Button_Click)

Call ShellAbout(Me.hwnd, "- Esempio About Box", "Un piccolo esempio " & _
"Come usare la funzione ShellAbout per creare un'About Box.", Me.Icon)