Public class form 1
Public sub form1_activated (By Val . . . . .
Call bersih()
Call isi-combo()
End sub
Sub bersih()
Textbox1.text=” “
Textbox2.text=” “
Textbox3.text=” “
Textbox4.text=” “
End sub
Sub isi-combo()
ComboBox1.items.add(“ 06 teknik Informatika”)
ComboBox1.items.add(“ 07 teknik Informatika”) dst
End sub
Private sub Button4_click(By Val . . . . .
If button4.text = “ keluar” then
Me.class()
Else call normal ()
Call bersih ()
End if
End sub
Sub normal ()
Button1.text = “tambah”
Button1.enable = true
Button2.enable = true dst
Private sub button1_click (By val . . .
If Button1.text = “tambah” then
Button1.text = “simpan”
Button2.enable= false
Button3.enable= false
Button4.text = “batal”
textBox1.focus()
end if
end sub
end class