Option Explicit
Private Sub Form_Load()
Me.MozillaBrowser1.Navigate "http://bbs.csdn.net"
End Sub
Private Sub MozillaBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp Is MozillaBrowser1.Object Then
Debug.Print MozillaBrowser1.Document.Title
End If
End Sub