Dim suma1, suma2, suma3 As Integer


Private Sub Command1_Click()
If Combo1.ListIndex = 0 Then Text1 = 2345
If Combo1.ListIndex = 1 Then Text1 = 3456
If Combo1.ListIndex = 2 Then Text1 = 4567
If Combo1.ListIndex = 3 Then Text1 = 5678
    If Option1 = True Then
    Text2 = Text1
    End If
        If Option2 = True Then
        Text2 = Text1 + ((Text1 * 4) / 100)
        End If
            If Option3 = True Then
            Text2 = Text1 + ((Text1 * 10) / 100)
            End If
If Option4 = True Then
Text2 = Text1 + ((Text1 * 21) / 100)
End If
    If Option5 = True Then
    Text2 = Text1 + ((Text1 * 21) / 100)
    End If
        If Option6 = True Then
        Text2 = Text1 + ((Text1 * 10) / 100)
        End If



End Sub

Private Sub Form_Load()
Combo1.AddItem "Television"
Combo1.AddItem "Compu"
Combo1.AddItem "Celular"
Combo1.AddItem "DVD"
Combo2.AddItem "Zapallo"
Combo2.AddItem "Dulce de Leche"
Combo2.AddItem "Banana"
Combo2.AddItem "Lavandina"

End Sub