Dim Explorer As New SHDocVw.InternetExplorer
    Explorer.Visible = True
    Explorer.Top = 0
    Explorer.Left = 0
    Explorer.Width = 800
    Explorer.Height = 600
    Explorer.Navigate "http://......."给分,呵呵

解决方案 »

  1.   

    ShellExecute 0, "Open", "http://...", "", "", vbNormalFocus
      

  2.   

    做一点补充,蹭点分,呵呵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 LongShellExecute 0, "Open", "http://...", "", "", vbNormalFocus