[решено] Автоматические чекбоксы

[-TRM-]

Добрый день !
Стоит такая задача. В окне (GUICreate) нужно создать чекбоксы (GUICtrlCreateCheckbox)

Dim $aDrive[30]; Условное число
Dim $CheckboxProg_Files[UBound($aDrive)]
For $ind = 1 To UBound($aDrive) - 1
$CheckboxProg_Files[$ind] = GUICtrlCreateCheckbox(Polu4itNazvanieProg($DPfile), $stolb, $stolbVerx+$next, $ShirinaStolbca-1, 17)
Next

Всё получается, но проблема начинается тогда, когда нужно определить - какой чекбокс нажат, можно решить таким способом :

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
DirRemove($SFU_kuda, 1)
Exit
Case $CheckboxProg_Files[1]

Case $CheckboxProg_Files[2]

Case $CheckboxProg_Files[3]
......
Case $CheckboxProg_Files[30]
; и так далее до количества чекбоксов

EndSwitch
WEnd

Можно ли этому найти универсальное решение чтобы не описывать с Case $CheckboxProg_Files[1] по Case $CheckboxProg_Files[30] ?

[AZJIO]

-TRM-, но всё давно решено - http://pastebin.com/cBna5Sv3

[-TRM-]

AZJIO, Огромное спасибо !