Public Class ModeTriche
  Public Event OnToggle()
  Public Toggled As Boolean

  Private Sub Toggle(ByVal sender As System.Object,
                     ByVal e As System.EventArgs) Handles lblMode.Click,
                                                          MyBase.Click
    If Toggled = True Then
      Toggled = False
      lblMode.Text = "Legal"
    Else
      Toggled = True
      lblMode.Text = "Triche"
    End If
    RaiseEvent OnToggle()
  End Sub

End Class