Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory _
 As String, ByVal nShowCmd As Long) As Long

Public sub StartBrowser(URL As String)
'Load a WEB page into my browser
'(c) 2001 Programmers Heaven
'http://www.programmersheaven.com
    
    If Trim(URL) <> "" Then
       Call ShellExecute(0&, vbNullString, URL, _
       vbNullString, "C:\", mlngMax Or mlngMin Or mlngNormal)
    End If
End Sub

      StartBrowser "http://www.programmersheaven.com"