[VB6] Ma variable ne prend pas les valeurs

Bonjour à tous , je suis desespéré , je suis en train de faire un petit prog tout simple mais qui fait appelle à une variable globale .
Mon projet contient 2 form :
la premiere contient 4 images
la seconde contient 4 optionbutton qui attribu l'entier 0 , 1 , 2 , 3 a la variable globale CHGT .

Le soucis c'est que ma variable prend qu'une seule valeure , celle quelle a lors de l'initialisation , donc si vous pouviez m'aider , ce serait fort apprécié .

voici le code de la premiére form :

Option Explicit

Private Sub UserControl_Initialize()
menu.Show
If menu.CHGT = 0 Or menu.CHGT = 1 Or menu.CHGT = 2 Or menu.CHGT = 3 Then
kelimage
End If
End Sub

Sub kelimage()
Image1.Visible = (menu.CHGT = 0)
Image2.Visible = (menu.CHGT = 1)
Image3.Visible = (menu.CHGT = 2)
Image4.Visible = (menu.CHGT = 3)
End Sub

voici le code de la 2ieme form

Option Explicit
Public CHGT As Integer

Private Sub Option1_Click()
If Option1 = True Then
CHGT = 0
End If
End Sub

Private Sub Option2_Click()
If Option2 = True Then
CHGT = 1
End If
End Sub

Private Sub Option3_Click()
If Option3 = True Then
CHGT = 2
End If
End Sub

Private Sub Option4_Click()
If Option4 = True Then
CHGT = 3
End If
End Sub

merci d'avance
amicalement lucas