Formulas

If Combo1.ListIndex = 2 Then
Combo2.Clear
Combo2.AddItem "ACCORD"
Combo2.AddItem "CIVIC"
Combo2.AddItem "CRV"
Combo2.AddItem "FIT"
Combo2.AddItem "PRELUDE"
End If

If Combo1.ListIndex = 3Then
Combo2.Clear
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "6"
Combo2.AddItem "CX5"
Combo2.AddItem "RX8"
End If

If Combo1.ListIndex = 4 Then
Combo2.Clear
Combo2.AddItem "CAMARO"Combo2.AddItem "CELTA"
Combo2.AddItem "CRUZE"
Combo2.AddItem "SONIC"
Combo2.AddItem "SPARK"
End If
End Sub

Private Sub Combo2_Click()
If Combo1.ListIndex = 0 And Combo2.ListIndex = 0 ThenImage1.Picture = LoadPicture("E:\Programas Visual\AUTOVENTAS\TOYOTA\CELICA.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q55,000"
End If
If Combo1.ListIndex = 0 And Combo2.ListIndex = 1 ThenImage1.Picture = LoadPicture("E:\Programas Visual\AUTOVENTAS\TOYOTA\COROLLA.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q50,000"
End If
If Combo1.ListIndex = 0 And Combo2.ListIndex = 2 ThenImage1.Picture = LoadPicture("E:\Programas Visual\AUTOVENTAS\TOYOTA\HILUX.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q150,000"
End If
If Combo1.ListIndex = 0 And Combo2.ListIndex = 3 ThenImage1.Picture = LoadPicture("E:\Programas Visual\AUTOVENTAS\TOYOTA\SUPRA.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q80,000"
End If
If Combo1.ListIndex = 0 And Combo2.ListIndex = 4 ThenImage1.Picture = LoadPicture("E:\Programas Visual\AUTOVENTAS\TOYOTA\YARIS.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q70,000"
End If

If Combo1.ListIndex = 1 And Combo2.ListIndex = 0 ThenImage1.Picture = LoadPicture("E:\Programas Visual\AUTOVENTAS\NISSAN\GTR.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q85,000"
End If
If Combo1.ListIndex = 1 And Combo2.ListIndex = 1 Then
Image1.Picture= LoadPicture("E:\Programas Visual\AUTOVENTAS\NISSAN\JUKE.jpg")
Label5.Caption = Combo1
Label7.Caption = "Q78,000"
End If
If Combo1.ListIndex = 1 And Combo2.ListIndex = 2 Then
Image1.Picture =...