'
' ShellAbout - Display an About box
'
' Author: Joe Strazzere
'
'"shell32.dll" Alias "ShellAboutA"
'(ByVal hwnd As Long,
' ByVal szApp As String,
' ByVal szOtherStuff As String,
' ByVal hIcon As Long) As Long
ret=External("shell32.dll", "ShellAboutA", 0, "The First Part#The Second Part","The explanation"+Chr$(10)+"goes here.",0)