tengo un problema con un option button a una lista

[alexander19]

ola buenas tengo una duda que tengo que hacer un programa pero me falta una pura parte que no la puedo hacer
que es de la parte de pasar de un option button a una lista
el programa se llama compra interactiva ojala me puedan ayudar estos son los codigos

Option Explicit


Private Sub Check1_Click()
If Check1.Value = 1 Then
Image2.Picture = _
LoadPicture("C:\imagenes\libros\computador.jpeg")
Image2.Visible = True
Else
Image2.Visible = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Image3.Picture = _
LoadPicture("C:\imagenes\libros\medicina.jpeg")
Image3.Visible = True
Else
Image3.Visible = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Image4.Picture = _
LoadPicture("C:\imagenes\libros\pc.jpeg")
Image4.Visible = True
Else
Image4.Visible = False
End If
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text

Case "efectivo"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\billete.jpeg")
Case "tarjeta"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\tarjeta.jpeg")
Case "cheque"
Image6.Picture = LoadPicture("C:\imagenes\tipo_pago\cheque.jpeg")
End Select
End Sub

Private Sub Command1_Click()
MsgBox "los esperamos luego"
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "efectivo"
Combo1.AddItem "tarjeta"
Combo1.AddItem "cheque"

List1.AddItem "amd "

End Sub


Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\AMD.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\intel.jpeg")

End Select
Image1.Visible = True

End Sub

Private Sub Option1_Click(Index As Integer)

???????
End Sub


ojala me puedan ayudar