Problémes avec ListBox d'une boite de dialogue

Bonsoir,

J'ai une boite de dialogue avec 3 Combox et 2 ListBox que voici :

Sub Belote_Activate()
Load FrmBelote
Dim i As Integer
With FrmBelote.CmbPartie
FrmBelote.CmbPartie.AddItem "1"
FrmBelote.CmbPartie.AddItem "2"
FrmBelote.CmbPartie.AddItem "3"
FrmBelote.CmbPartie.AddItem "4"
End With

For i = 1 To 400
FrmBelote.CmbEquipeA.AddItem (i)
Next i

For i = 1 To 400
FrmBelote.CmbEquipeB.AddItem (i)
Next i

FrmBelote.LblNbreEquipeA = ""

FrmBelote.LblNbreEquipeB = ""

FrmBelote.Show

Application.ScreenUpdating = False
End Sub


Le probléme que je comprends pas est ici car je ne peux saisir dans la boite de dialogue !

FrmBelote.LblNbreEquipeA = ""

FrmBelote.LblNbreEquipeB = ""

MERCI BEAUCOUP!