Public Class FrmBilan

    Private Sub CmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClose.Click
        Me.Close()
        FrmAccueil.Show()
    End Sub

    Private Sub FrmBilan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Tag = "Bilans"
        'Me.Text = "Bilans | " & TimeOfDay
        Dim i As Integer
        For i = 0 To UBound(tme)
            CboMat.Items.Add(tme(i))
        Next
    End Sub

    Private Sub CBNP_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBNP.GotFocus
        RBNP.Checked = True         REM Permet de "checker" le ratiobox correspondant au focus (On veut choisir son nom dans une GRrB).
    End Sub

    Private Sub TxtId_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtId.GotFocus
        RBId.Checked = True         REM Permet de "checker" le ratiobox correspondant au focus (On veut enter l'ID du candidat).
    End Sub

    Private Sub RBId_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBId.CheckedChanged
        CmdAff.Location = New Point(282, 39)
    End Sub

    Private Sub RBNP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBNP.CheckedChanged
        CmdAff.Location = New Point(282, 88)
    End Sub




End Class