About windows 2000
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 MnuAbout_Click() Call ShellAbout(Me.hwnd, App.Title, "In queste rrighe, puoi aggiungere qualsiasi altro messaggio di informazione, ad es. il numero seriale dell'applicazione", Me.Icon) End Sub |