tengo un problema con un option button a una lista

[alexander19]

ia termine el programa i era hacii

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()
If Option1(0).Value = True Then
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\AMD1.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\intel1.jpeg" )
Case 2
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\AMD.JPEG")
Case 3
Image1.Picture = _
LoadPicture("C:\imagenes\procesadores\intel.JPEG")
End Select
End If

If Option2(1).Value = True Then
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\tarjeta_video\ati.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\tarjeta_video\nvidia.jpeg ")
End Select
End If
If Option3(2).Value = True Then
Select Case List1.ListIndex
Case 0
Image1.Picture = _
LoadPicture("C:\imagenes\memorias\ddr.JPEG")
Case 1
Image1.Picture = _
LoadPicture("C:\imagenes\memorias\ddr2.jpeg")
Case 2
Image1.Picture = _
LoadPicture("C:\imagenes\memorias\ddr3.jpeg")






End Select

End If
End Sub

Private Sub Option1_Click(Index As Integer)
List1.Clear
List1.AddItem "AMD "
List1.AddItem "INTEL "
List1.AddItem "AMD DUAL CORE "
List1.AddItem "INTEL DUAL CORE "
End Sub

Private Sub Option2_Click(Index As Integer)
List1.Clear
List1.AddItem "ATI "
List1.AddItem "NVIDIA "
End Sub

Private Sub Option3_Click(Index As Integer)
List1.Clear
List1.AddItem "DDR "
List1.AddItem "DDR2 "
List1.AddItem "DDR3"
End Sub