[VB6] loop su opt non va +

[DeBe99]

dovresti cambiare un po il ciclo, cercando controlli generici (non solo option e al limite confrontando il tipo (TypeName). Poi il ciclo va fatto sull'insime controls del form:

Dim opt As Control
Dim frm As Form
Set frm = frmRegistrazione
For Each opt In frm.Controls
   If TypeName(opt) = "OptionButton" Then 
        If opt.Value = True Then
            Select Case opt.Tag
                Case "A": caricaAlbero
                Case "B":
                ...
            End Select
        End If
   end if
Next opt