Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
   
   
Private Sub Command1_Click()
Web_V1.GoBack
End SubPrivate Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
     
      WebBrowser1.Navigate "http://www.bjyouth.com.cn/Bqb/20011115/GB/default.htm"
End SubPrivate Sub Form_Resize()
WebBrowser1.Height = Form1.Height
WebBrowser1.Width = Form1.Width
End SubPrivate Sub Web_V1_NewWindow(ByVal URL As String, _
                                   ByVal Flags As Long, _
                                   ByVal TargetFrameName As String, _
                                   PostData As Variant, _
                                   ByVal Headers As String, _
                                   Processed As Boolean)                                   
                                         Processed = True
       
               For i = 1 To 10000
        DoEvents
        Next
        WebBrowser1.Navigate2 URL
       End Sub