Public Class FrmBilanSupp

    Private Sub FrmBilanSupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        Me.Tag = "Bilan des candidats supprimés"
        Me.Text = Me.Tag & " |" & TimeOfDay

        For i = 0 To PosMAX - 1
            If Tindex(i).Suppr = True Then LstSupp.Items.Add(Tindex(i).nom & " " & Tindex(i).prenom & " - " & i + 2)
        Next
    End Sub



    Private Sub CmdAnnul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnul.Click
        If Boule Then
            End
        Else
            Me.Close()
            FrmAccueil.Show()
        End If
    End Sub

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

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

End Class