Public Class ModeTriche
  Private mblnTricheur As Boolean = True

  Public Property Hey As Boolean
    Get
      Return mblnTricheur
    End Get
    Set(ByVal value As Boolean)
      mblnTricheur = value
      If mblnTricheur = True Then
        lblMode.Text = "Triche"
      Else
        lblMode.Text = "Legal"
      End If
      'frmTrois.mboolReset = True
    End Set
  End Property

  Private Sub Toggle(ByVal sender As System.Object,
                     ByVal e As System.EventArgs) Handles lblMode.Click,
                                                          MyBase.Click
    Toggle()
  End Sub

  Public Sub Toggle()
    If mblnTricheur = True Then
      mblnTricheur = False
    Else
      mblnTricheur = True
    End If
  End Sub
End Class