判断WebBrowser页面是否可以前进后退

Private Sub Command1_Click()
WebBrowser1.GoForward
End Sub

Private Sub Command2_Click()
WebBrowser1.GoBack
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate “www.vicmiao.com“
End Sub

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
    If (Command = CSC_NAVIGATEBACK) Then
        Command2.Enabled = Enable
    End If
    If (Command = CSC_NAVIGATEFORWARD) Then
        Command1.Enabled = Enable
    End If
End Sub

上面的command1是前进按钮，command2是后退按钮。