Private Const SW_SHOWNORMAL As Long = 1&
Private Const SW_MAXIMIZE   As Long = 3&
Private 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 RunUrl(ByVal sUrl As String, Optional ByVal bMaximized As Boolean = False)
    ShellExecute 0&, "open", sUrl, vbNullString, vbNullString, IIf(bMaximized, SW_MAXIMIZE,  SW_SHOWNORMAL)
End Sub

Sub RunUrl(sUrl, bMaximized)
 Dim oShell
 Set oShell = WScript.CreateObject("WSCript.shell")
 If bMaximized = True Then
    oShell.run sUrl, 3
 Else
    oShell.run sUrl, 1
 End If
 Set oShell = Nothing
End Sub

Public Sub RunUrl(ByVal sUrl As String)
    Dim p As New System.Diagnostics.Process
    p.Start(sUrl, String.Empty)
    p.Dispose()
End Sub

<System.Runtime.InteropServices.DllImportAttribute("shell32.dll", SetLastError:=True)> Shared Function ShellExecute(ByVal hwnd As IntPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
End Function
'
Public Sub RunUrl(ByVal sUrl As String, Optional ByVal bMaximized As Boolean = False)
    ShellExecute(0&, "open", sUrl, String.Empty, String.Empty, IIf(bMaximized, 3, 1))
End Sub

    [System.Runtime.InteropServices.DllImportAttribute("shell32.dll", SetLastError = true)]
    static extern int ShellExecute(int hwnd, string lpOperation, string lpFile, string lpParameters, string lpDirectory, int nShowCmd);
    //
    public void RunUrl(string sUrl, bool bMaximized)
    {
        ShellExecute(0, "open", sUrl, string.Empty, string.Empty, (bMaximized == true) ? 3  : 1);
    }