Controlli - Una AboutBox Standard Per VB432 E VB5

Api # Perche' creare una AboutBox per ogni programma, quando in Windows95 c'e'
gia'?????
Dichiarazione da inserire In un modulo bas
Const GWW_HINSTANCE = (-6)
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
Declare Function ExtractIcon Lib "shell32.dll" _
Alias "ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Esempio di utilizzo
Dim lRet As Long
Dim lNull As Long
Dim lIcon As Long
Dim lInst As Long
lInst = GetWindowLong(Form1.hwnd, GWW_HINSTANCE)
lIcon = ExtractIcon(lInst, App.EXEName, 0&)
lRet = ShellAbout(Form1.hwnd, "Nome Applicazione", _
"Copyright © 1998 NomeSocieta" & Chr(13) & Chr$(10) & _
"Serial # xxxxxxxxx-xxx", lIcon)