Tugas VB no.1(ganjil)

Private Sub listmenu()
Combo1.AddItem "Kawin"
Combo1.AddItem "Belum Kawin"
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Kawin"
Text5.Text = 25000
Case "Belum Kawin"
Text5.Text = 0
End Select
End Sub

Private Sub Command1_Click()
If Text1.Text <= 48 Then
Text4.Text = Text1.Text * 10000
ElseIf Text1.Text > 48 Then
Text4.Text = ((Text1.Text - 48) * 12000) + 480000
End If


If Text2.Text <= 3 Then
Text6.Text = Text2.Text * 21000
Else
Text6.Text = 63000
End If

Text3.Text = 1500000
End Sub

Private Sub Form_Load()
Call listmenu
End Sub