Fai così:
codice:
dim croce as boolean
if croce = true then check1.value = 1
Chiaramente in questo esempio ho utilizzato una variabile booleana, te metterai la tua espressione..

ciao