Ko Ma BSI

Private Sub Combo1_Click()

If Combo1.Text = "Kemeja" Then

Text1.Text = 125000

ElseIf Combo1.Text = "Kaos" Then

Text1.Text = 75000

Else

Text1.Text = 95000

End If

End Sub

Private Sub Combo2_Click()

If Combo2.Text = "Jeans" Then

Text2.Text = 185000

ElseIf Combo2.Text = "Clana Bahan" Then

Text2.Text = 125000

Else

Text2.Text = 45000

End If

End Sub

Private Sub Command1_Click()

Text5.Text = (Val(Text1.Text) * Text3.Text) + (Val(Text2.Text) * Text4.Text)

End Sub

Private Sub Command2_Click()

x = MsgBox("Maneh arek kaluar lain..???", 32 + 1, "keluar....")

If x = vbOK Then

End

End If

End Sub

Private Sub Command3_Click()

Combo1.Text = ""

Combo2.Text = ""

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Combo1.SetFocus

End Sub