Option Explicit
Private Declare Function ShowAbout& Lib "shell32.dll" Alias "ShellAboutA" ( _
ByVal hwnd As Long, _
ByVal szApp As String, _
ByVal szOtherStuff As String, _
ByVal hIcon As Long)
Private Declare Function GetActiveWindow& Lib "user32" ()
Sub ShowAbout_API()
Const szAuthor As String = " Justin Labenne "
Dim szTitle As String
szTitle = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
Dim szCopyright As String
szCopyright = "?2004-" & Format(Now(), "yyyy")
Dim lhwnd As Long
lhwnd = GetActiveWindow()
Dim lInfo As Long
lInfo = ShowAbout(lhwnd, szTitle, vbCr & szAuthor & szCopyright, 0)
End Sub
|