How Enable/Disable Back & Forward in webbrowser

Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
On Error Resume Next
Select Case Command
  Case CSC_NAVIGATEFORWARD
    If Enable = True Then
      'Forward dispo
      ForwardEnable = True
      RaiseEvent ForwardUpdate(True)
    Else
      'Forward non dispo
      ForwardEnable = False
      RaiseEvent ForwardUpdate(False)
    End If
    'Pas de forward
  Case CSC_NAVIGATEBACK
    If Enable = True Then
      BackEnable = True
      RaiseEvent BackUpdate(True)
      'Back dispo
    Else
      BackEnable = False
      RaiseEvent BackUpdate(False)
      'Back non dispo
    End If
End Select
 If Command = -1 Then Exit Sub
'End If
End Sub