Private Sub Combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
    Select Case Combo1.Text
    Case "I"
    Text1 = "14100411"
    Text2 = "OVITRIA NINGSIH"
    gapok = 2500000
    tunjangan = 250000
   
    Case "II"
    Text1 = "14100525"
    Text2 = "MAI INDAH"
    gapok = 3000000
    tunjangan = 300000
   
    Case "III"
    Text1 = "14100213"
    Text2 = "ANGGEL"
    gapok = 4500000
    tunjangan = 450000
   
    Case "IV"
    Text1 = "14100214"
    Text2 = "ANISA"
    gapok = 4000000
    tunjangan = 400000
   
    Case Else
    gapok = 0
    tunjangan = 0
End Select
    total = gapok + tunjangan
    pajak = total * 0.1
    Text3 = gapok
    Text4 = tunjangan
    Text5 = pajak
    Text6 = total - pajak
End Sub

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "I"
Combo1.AddItem "II"
Combo1.AddItem "III"
Combo1.AddItem "IV"
End Sub