Declare Sub ShellAbout Lib "shell32.dll" Alias
"ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal
szOtherStuff As String, ByVal hIcon As Long)

Si la declaras como Function, el valor devuelto es Long.