Declare Sub ShellAbout Lib "shell.dll"_ (ByVal hWndOwner%, ByVal lpszAppName$,_ ByVal lpszMoreInfo$, ByVal hIcon%) Sub Form_Click () ShellAbout hwnd, App.EXEName, App.Title, icon End Sub