Option button array problemita

[scvirus]

Buenas dias

quiero interactuar con varios option button..
cree 2 arrays de optiones

Lo que quiero es que si presiono algun opcion del frame 1, use el valor correspondiente del listbox Precio Solo ... si hay algun option button del frame 2 presionado, use el valor correspondinte del listbox Precio Duo. (list1, list2, list3, list4)

Asi viceversa, con el Frame2 cada vez que presione una opcion
Hasta ahora solo logro hacerlo por separado

Creo que no es muy complicado.

Codigo:

Option Explicit
Dim A As Double
Dim B As Double

Private Sub Option1_Click(Index As Integer) '~~~ Control array

For A = 0 To 2
If Option1(A).Value = True Then
Label1.Caption = List1.List(A)
End If
Next A

For B = 0 To 2
If Option2(B).Value = True Then
Label2.Caption = List3.List(B)
End If
Next B

End Sub




Gracias

[IngSerrano]

ola, la verdad no entiendo muy bien lo que quieres hacer, por favor dame un ejemplo real usando los números de la imagen que adjuntaste para poder entender a que quieres llegar.