'比如按钮1是后退,按钮2是前进,先把他们的Enabled属性设为False,加入以下事件和代码即可
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If (Command = CSC_NAVIGATEBACK) Then
Command1.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command2.Enabled = Enable
End If
End S
====================================================
Private Sub webbrowser1_NewWindow2( ByRef ppDisp As Object, ByRef Cancel As Boolean)
set Frmd = new form1
set ppdisp =  frmd.webbrowser1.object
frmd.show
end if
==============