Public Class FrmAccueil
    Public Boule As Boolean REM inscription ou édition

    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 Candide Pro 7. Voulez-vous continuer ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Quitter Candide Pro 7")
        If quit = vbYes Then
            End
        End If
    End Sub

    Private Sub FrmAcceuil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Boule = False
    End Sub

    Private Sub CmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNew.Click
        Me.Hide()
        Boule = False
        FrmNouv.Show()
    End Sub

    Private Sub CmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEdit.Click
        Me.Hide()
        Boule = True REM bool change pour edition
        FrmEdit.Show()
    End Sub
End Class