Erreur en VB mais je vois pas où

Bonjour,


Alors je suis en train de crée un jeu en VB6 et dans ce code quand je lance en débogage VB passe complêtement la dernière étape /


Private Sub Command2_Click()
If F_FichePersonnage.Check1.Value = 0 Then
F_21.Show
Unload F_20
F_FichePersonnage.Check1.Value = 1
ElseIf F_FichePersonnage.Check1.Value = 1 Then
F_FichePersonnage.Check2.Value = 1
Unload F_20
F_21.Show
ICI------> ElseIf F_FichePersonnage.Check1.Value = 1 And F_FichePersonnage.Check2.Value = 1 Then
Dim Sup
Sup = MsgBox("Vous avez utilisez tout vos jokers", vbOKOnly + vbInformation, " Joker ")

End If
End Sub

Je n'ai pas l'affichage de la MSgBox alors que mes deux check.value = 1 et sa charge bien la F_21 ..

Merci d'avence