How to Generate a standard windows About box
Posted on January 4, 2009
1 2 3 4 5 6 7 8 9 10 11 12 13 | 'System & API - How to Generate a standard windows About box 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 Public Sub AboutBox(frm As Form, Optional copyright As Variant) If VarType(copyright) = vbString Then Call ShellAbout(frm.hwnd, App.ProductName, copyright, frm.Icon) Else Call ShellAbout(frm.hwnd, App.ProductName, "", frm.Icon) End If End Sub |