[VB6] Problema in una funzione per rinominare oggetto

[Fado84]

Salve a tutti!!!!!
sto implementando una funzione contenuta in un modulo... questa:

With Form1
For j = 1 To 4
????????????
    For i = 1 To 4
        If .optCh1(i).Value = True Then
            Select Case i
                Case 1
                    Scala(j) = 225 / 30
                Case 2
                    Scala(j) = 225 / 15
                Case 3
                    Scala(j) = 225 / 6
                Case 4
                    Scala(j) = 225 / 3
            End Select
        End If
    Next i
Next j
End With

Il mio problema è che ho 4 controlli optCh1,optCh2,optCh3,optCh4 e
dovrei far variare l'oggetto nella funzione per controllare che valore
ha...
Mi potete aiutare per favore???

Grazie mille a tutti!