Private Sub Form_Load()
WebBrowser1.Navigate "http://www.bai4.com"
End Sub
Private Sub Command1_Click()
If downComplete Then
Dim vdoc As IHTMLDocument2
Set vdoc = WebBrowser1.Document
Dim aLink As HTMLLinkElement
Set aLink = vdoc.links(0)
aLink.Click
End If
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
downComplete = True
End Sub