VB6 da checkbox a variabile

[superciuck]

Ciao a tutti.
Ho un problema (VISUAL BASIC 6).
In un form ho 16 checkbox.
A seconda di come queste sono spuntate devo ottenere una variabile di tipo integer.
Ad esempio se sono spuntate la prima e la terza check box la variabile dovrà valere 3.
Insomma ogni check box deve corrispondere ad un bit della variabile.
L'utente spunta le checkbox che servono e il programma le deve riportare in una variabile che poi non sarà altro che una maschera di luci.
Non saprei proprprio come iniziare.
Forse con un migliaio di oparazioni riuscirei ma son sicuro che ci siano sistemi
relativamente comodi.
Grazie
Daniele

 

[programmatore]

Metti i check in un vettore. Es.

dim vettore(16) as checkbox
set vettore(0)=check01
set vettore(1)=check02
...
set vettore(15)=check16

Questo te lo puoi risparmiare se già sono con l'indice (es. check01(0)...check01(15))
Per avere il valore che dicevi ti basta un ciclo for:

valore=0
for i=0 to 15
    valore=valore+vettore(i).value*i^2
next i

Se vuoi puoi metterci un if:

for i=0 to 15
    if vettore(i).value=1 then
        valore=valore+i^2
    end if
next i