Private Sub Form_Load()
CboJenis.AddItem “VB”
CboJenis.AddItem “MO”
CboJenis.AddItem “PCL”
End Sub
Private Sub CboJenis_Click()
If CboJenis.Text = “VB” Then
txtnama.Text = “Visual Basic”
ElseIf CboJenis.Text = “MO” Then
txtnama.Text = “Microsoft Office”
Else
txtnama.Text = “Pascal”
End If
txtnama.Enabled = False
End Sub
Private Sub CmdBatal_Click()
Txtno.text = “”
Txtnama.text = “”
CboJenis.text = “”
OptPagi.Value = False
OptMalam.Value = False
Txtbiaya.text = “”
txtno.SetFocus
End Sub
Private Sub CmdKeluar_Click()
a = MsgBox(“Yakin Keluar Program ?”, vbYesno + vbQuestion, “Konfirmasi”)
If a = vbyes Then
Unload Me
End If
End Sub
Private Sub Form_Activate()
txtno.SetFocus
End Sub
Private Sub OptPagi_Click()
txtbiaya.Text = 500000
txtbiaya.Enabled = False
End Sub
Private Sub OptMalam_Click()
txtbiaya.Text = 550000
txtbiaya.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Date + Time
End Sub