How to create a "Back" and "Forward" button for the Web Browser Control

[Doc Scheinder]

Does anyone know how to create a "Back" and "Forward" button for the web browser control? Thanks in advance.

[Nucleus]

Draw them like a normal button then use this code:

WebBrowser1.GoBack
WebBrowser1.GoForward
WebBrowser1.Stop
WebBrowser1.Refresh2 3

You know where To put this code I hope.

You also need this code To enable/disable the buttons For you:

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
    ' this Event allows enabling And disabling of forward/backward buttons (cool!)
    Select Case Command
        Case CSC_NAVIGATEFORWARD
            Me.Command1(1).Enabled = Enable 'toggle forward button state
        Case CSC_NAVIGATEBACK
            Me.Command1(0).Enabled = Enable 'toggle back button state
    End Select
End Sub

[Doc Scheinder]

Thanks. Works perfectly.