Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Custom About Dialog

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 GetActiveWindow Lib "user32" () As Long Sub AboutMrExcel()     Dim hwnd As Integer     On Error Resume Next     hwnd = GetActiveWindow()     ShellAbout hwnd, nm, " Consulting" + vbCrLf, 0     On Error GoTo 0 End Sub