non so se va bene lo stesso, ma ho risolto in questo modo:

codice:
Dim opt As OptionButton
    For Each opt In frmRegistrazione
        If opt.Value = True Then
            Select Case opt.Tag

... ... ... ... ... ... ... ... ... ...
 ... ... ... ... .... ... .. .. .. . . .. .
Adesso funziona, prima non so come mai ma non trovava l' oggetto opt quando il ciclo arrivava sulla riga opt.tag, adesso la trova ???

Boh ...

PS: un buon sito dove scaricare qualche ocx bello, tipo list view con immagini e simili?