[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!

[kalosjo]

e per ognuno devi fare il ciclo?

[Fado84]

si volevo gestire con la variabile "j" i 4 optionbutton


Grazie!

[Socket2000]

Sub Controllo
  Dim Comando As Control
  Dim i As Integer
  Dim j As Integer
    
  For Each Comando In Me
    If TypeOf Comando Is OptionButton Then
            
      '*** Tutto il successivo select si potrebbe 
      '*** sostituire con
      '*** j=val(right$(Comando.Name),1) 
      '*** ma per pulizia di
      '*** programmazione preferisco il select...
      
      Select Case Comando.Name
        Case Is = "optCh1"
        j = 1
        
        Case Is = "optCh2"
        j = 2
          
        Case Is = "optCh3"
        j = 3
        
        Case Is = "optCh4"
        j = 2

        Case Else
        Exit Sub
      End Select

      '**** Fino a qui

      i = Comando.Index
      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
End Sub

[Fado84]

grazie mille!