Listingny ...

Private Sub Form_Load()
CKODE.AddItem ("AP-01")
CKODE.AddItem ("AP-02")
CKODE.AddItem ("AP-03")

CKODEBUKU.AddItem ("PL-01")
CKODEBUKU.AddItem ("PL-02")
CKODEBUKU.AddItem ("PL-03")
End Sub

Private Sub CKODE_Click()

If CKODE.Text = "AP-01" Then
TNAMA.Text = "STOKONYU"
TSEMESTER.Text = "IV"
ElseIf CKODE.Text = "AP-02" Then
TNAMA.Text = "SETIAWAN TIADA TARA"
TSEMESTER.Text = "III"
ElseIf CKODE.Text = "AP-03" Then
TNAMA.Text = "VAN HOUTEN"
TSEMESTER.Text = "V"
End If

Private Sub CKODEBUKU_Click()

If CKODEBUKU.Text = "PL-01" Then
TJUDUL.Text = "DORAEMON"
THARGA = 1500
ElseIf CKODEBUKU.Text = "PL-02" Then
TJUDUL.Text = "SINCHAN"
THARGA = 2000
ElseIf CKODEBUKU.Text = "PL-03" Then
TJUDUL.Text = "TSUBASA"
THARGA = 500
End If
End Sub

Private Sub TLAMA_Click()
TLAMA = DTPICKER2 - DTPICKER1
End Sub

Private Sub CHITUNG_Click()
TSUBTOTAL = (Val(THARGA) * Val(TJUMLAH))
If TLAMA <= 3 Then
TDENDA = 0
Else
TDENDA = (Val(TLAMA - 3) * Val(THARGA) + 1000)
End If
TBAYAR = Val(TSUBTOTAL) + Val(TDENDA)
End Sub

Sub BERSIH()

For Each H In Me
If TypeOf H Is TextBox Then H.Text = ""
If TypeOf H Is ComboBox Then H.Text = ""

Next
End Sub

Sub AKTIF()
Dim H As Control
For Each H In Me
If TypeOf H Is TextBox Then H.Enabled = True
If TypeOf H Is ComboBox Then H.Enabled = True
Next

End Sub

Sub PASIF()
Dim H As Control
For Each H In Me
If TypeOf H Is TextBox Then H.Enabled = False
If TypeOf H Is ComboBox Then H.Enabled = False
Next
End Sub

Private Sub CINPUT_Click()

AKTIF
BERSIH
End Sub

Private Sub CBATAL_Click()
PASIF
BERSIH
End Sub

Private Sub Form_Activate()
Call PASIF
End Sub