Forward/Backward button problem while using Internet Control in VB 6.0

The solution for this is described the following lines of code:

~~~~~~~~~~~~~

1. Declare const variables

Private Const CSC_NAVIGATEFORWARD As Integer = 1
Private Const CSC_NAVIGATEBACK As Integer = 2

2. Copy the

Private Sub WebBrowser_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)

On Error GoTo ErrorHandler

' e.command identifies the effected button
Select Case Command
Case CSC_NAVIGATEBACK 'Back button
' Enable OR Disable the Back button
MyToolbar.Buttons(1).Enabled = Enable
Case CSC_NAVIGATEFORWARD 'Forward button
' Enable OR Disable the Forward button
MyToolbar..Buttons(2).Enabled = Enable
End Select

Exit Sub

ErrorHandler:
msgbox "Is anything wrong with my IE control."
exit sub

End Sub

~~~~~~~~~~~~~

Note: You can use your button instead of toolbar button. Then you need to define the code like this.

Button1.Enabled = Enable

I hope this will works!


Benoyraj B