Visual Basic 6 - checkBox come utilizzare

ciao ragazzi

dovrei inserire in una
Private Sub

un tratto di codice a richiesta dell'utente...

avrei pensato di utilizzare le checkBox

ho inserito nella
Private Sub nel punto giusto questa :

if Check1.Value = vbChecked Then Check1_condizione

pero non funziona

come procedere?


grazie

scusami non ho capito bene cosa ti serve, potresti rispiegarmelo?

ok faccio un piccolo esempio
nel form :
1) Command1_Click
2) listbox
3) check1

Private Sub Command2_Click()
Dim ambo(9) As String 'ilvettore parte da 0
List1.Clear
For i = 1 To 5
For j = i + 1 To 5
ambo(h) = i & " - " & j 'vettore stringhe - ambi
List1.AddItem ambo(h)
h = h + 1
Next j
Next i
End Sub

cioè ricaviamo tutte le combinazione su 5 numeri....

premento il tasto avreo la soluzione nellalistbox di tutte le combinazioni

ovvviamente il check1 non ha il segno di spunta...

dovrei

inserire a discrezione dell'utente( inserendo la spunta)
altro codice in quel codice del tasto

crei due procedure differenti, se è spuntata ne mandi in esecuzione una, se non è spuntata un altra.
esempio :

Private sub command1_click()
if check1.value=1 then
call procedura1()
elseif check1.value=0 then
call procedura(2)
end if
end sub

ok si ci avevo pensato.... ma lo facevo per diminuire il codice nel form

poi le check sono diverso almeno 5, ecco perche chiedevo

grazie di tutto