'Copy this entire file then Paste into (General)(Declarations)
'
'A Built in About Box 

#If Win16 Then
    Private Declare Sub ShellAbout Lib "shell.dll" _ 
	( _
	    ByVal hWndOwner As Integer, _
	    ByVal lpszAppName As String, _
	    ByVal lpszMoreInfo As String, _
	    ByVal hIcon As Integer _
	) 


#ElseIf Win32 Then
    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
#End If


Private Sub Form_Click()
      Call ShellAbout _
        ( _
        Me.hwnd, _
        "Your Application's name Here", _
        "Your Application's Description Here" & vbLf & _
        "Your Application's Description Line2", _
        Me.Icon _
        )

End Sub

Private Sub Form_GotFocus()
CurrentX = 100: CurrentY = 100: FontSize = 20: Form1.Print "VBAbout Demo" & vbCrLf & "  Click here to test"
End Sub