Public Class FrmBilanMat

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

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

    Private Sub FrmBilanMat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Tag = "Bilan des matières"
        Me.Text = Me.Tag & " |" & TimeOfDay
    End Sub
End Class