Bonjour à tous,
je fais un quizz "quitte ou double"
voici le code de la forme fautive:
Private Sub Form_Load()
Label3.Caption = gresultat
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
If Option1.Value = True Then
Label2.Caption = "mauvaise réponse"
gresultat = 1
End If
If Option2.Value = True Then
gresultat = gresultat * 2
Label2.Caption = "bonne réponse"
End If
If Option3.Value = True Then
Label2.Caption = "mauvaise réponse"
gresultat = 1
End If
Command1.Visible = True
End Sub
Private Sub Timer1_Timer()
Visible = True
Label2.Visible = True
Command2.Visible = True
End Sub
+ le module suivant:
Public gresultat As Integer
mais la valeur de la variable ne change qu'une fois; le quizz ne fonctionne que sur la forme1. 
Aidez-moi SVP.
Merci d'avance.
