CheckBox Sur VB6

Bonjour,
J'aurais voulu avoir juste un petit coup de pouce.

Mettons que j'ai un boutton et 2 check box

Je veux dire :
Si je coche la (Checkbox 1) ; Alors le boutton 1 a pour Caption "A"
Si je coche la (Checkbox 2); Alors le boutton 1 a pour Caption "B"

J'essai de me dépatouiller avec des commandes comme sa mais sa ne colle pas.
Private Sub bt1_Click()
If Check1.Value = 1 Then bt1.Caption = "X" Else bt1.Caption = "O"
End If
End Sub