Private Sub Combo1_Click()
If Combo1.Text = "BEAT" Then
Combo2.Clear
txtharga.Text = "12600000"
Combo2.AddItem "800000"
Combo2.AddItem "1000000"
Combo2.AddItem "1500000"
Combo2.AddItem "2000000"
ElseIf Combo1.Text = "VARIO TECHNO" Then
Combo2.Clear
txtharga.Text = "15975000"
Combo2.AddItem "1000000"
Combo2.AddItem "1500000"
Combo2.AddItem "2000000"
Combo2.AddItem "2500000"
ElseIf Combo1.Text = "BLADE" Then
Combo2.Clear
txtharga.Text = "14000000"
Combo2.AddItem "1250000"
Combo2.AddItem "1500000"
Combo2.AddItem "2000000"
Combo2.AddItem "2500000"
ElseIf Combo1.Text = "CS 1" Then
Combo2.Clear
txtharga.Text = "17250000"
Combo2.AddItem "2000000"
Combo2.AddItem "2500000"
Combo2.AddItem "3000000"
Combo2.AddItem "3500000"
End If
End Sub


Private Sub Combo2_Change()

End Sub

Private Sub Combo3_Click()
If Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "11" Then
txttotal.Text = "1278000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "23" Then
txttotal.Text = "680000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "35" Then
txttotal.Text = "498000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "47" Then
txttotal.Text = "435000"

ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "11" Then
txttotal.Text = "1258000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "23" Then
txttotal.Text = "669000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "35" Then
txttotal.Text = "490000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "47" Then
txttotal.Text = "429000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "11" Then
txttotal.Text = "1192000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "23" Then
txttotal.Text = "627000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "35" Then
txttotal.Text = "461000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "47" Then
txttotal.Text = "414000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "1142000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "600000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "441000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "396000"

ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "11" Then
txttotal.Text = "1613000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "23" Then
txttotal.Text = "895000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "35" Then
txttotal.Text = "680000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "47" Then
txttotal.Text = "581000"

ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "156000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "859000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "680000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "581000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "11" Then
txttotal.Text = "1507000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "23" Then
txttotal.Text = "830000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "35" Then
txttotal.Text = "629000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "47" Then
txttotal.Text = "536000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "11" Then
txttotal.Text = "1454000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "23" Then
txttotal.Text = "801000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "35" Then
txttotal.Text = "60800"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "47" Then
txttotal.Text = "518000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "11" Then
txttotal.Text = "1391000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "23" Then
txttotal.Text = "753000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "35" Then
txttotal.Text = "569000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "47" Then
txttotal.Text = "479000"

ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "11" Then
txttotal.Text = "1365000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "23" Then
txttotal.Text = "739000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "35" Then
txttotal.Text = "559000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "47" Then
txttotal.Text = "470000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "1312000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "711000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "538000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "453000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2500000" And Combo3.Text = "11" Then
txttotal.Text = "1213000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2500000" And Combo3.Text = "23" Then
txttotal.Text = "673000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2500000" And Combo3.Text = "35" Then
txttotal.Text = "499000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "25000000" And Combo3.Text = "47" Then
txttotal.Text = "430000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "1682000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "97100"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "689000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "583000"

ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "11" Then
txttotal.Text = "1629000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "23" Then
txttotal.Text = "889000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "35" Then
txttotal.Text = "668000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "47" Then
txttotal.Text = "565000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "11" Then
txttotal.Text = "1577000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "23" Then
txttotal.Text = "861000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "35" Then
txttotal.Text = "648000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "47" Then
txttotal.Text = "548000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3500000" And Combo3.Text = "11" Then
txttotal.Text = "1524000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3500000" And Combo3.Text = "23" Then
txttotal.Text = "833000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3500000" And Combo3.Text = "35" Then
txttotal.Text = "627000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "35000000" And Combo3.Text = "47" Then
txttotal.Text = "531000"

End If



End Sub

Private Sub Command1_Click()
Unload Me
Load f9
f9.Show
End Sub