Public Class FrmBilanSelect

    Private Sub FrmBilanSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = Me.Tag & " | " & TimeOfDay
    End Sub



    Private Sub CmdBI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBI.Click
        Me.Hide()
        FrmAccueil.Hide()
        FrmBilanID.Show()
    End Sub

    Private Sub CmdBM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBM.Click
        Me.Hide()
        FrmAccueil.Hide()
        FrmBilanMat.Show()
    End Sub

    Private Sub CmdBS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBS.Click
        Me.Hide()
        FrmAccueil.Hide()
        FrmBilanSupp.Show()
    End Sub

    Private Sub CmdQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQuit.Click
        Dim quit As Integer
        quit = MsgBox("Vous êtes sur le point de quitter Candidat 7 Pro. Voulez-vous continuer ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Quitter Candidat 7 Pro")
        If quit = vbYes Then
            FileClose(nf)
            'Kill("Candidats.AFF")
            End
        End If
    End Sub

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