Attribute VB_Name = "mdlOpenBrowser"
'**************************************
'Windows API/Global Declarations for :De
'     fault Browser
'**************************************
'API for OpenBrowser
Public Const SW_SHOWDEFAULT = 10


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 Function OpenBrowser(strURL As String, lngHwnd As Long)

    OpenBrowser = ShellExecute(lngHwnd, vbNullString, strURL, vbNullString, _
    "c:\", SW_SHOWDEFAULT)
End Function