Contoh Code Tombol Bersih dan Keluar Pada Visual Basic 6.0

Disini saya akan sedikit membagikan script tombol bersih dan keluar pada visual basic, kalau cuman disimpan dilaptop kan sayang. Langsung saja yuuuk..

Code bersih
Private Sub Cmdbersih_Click()
Cmbtype.Text = ""
List1.Clear
Txthrg.Text = ""
Txtsuba.Text = ""
Txtumuk.Text = ""
Txthutang.Text = ""
Txthutbu.Text = ""
Txtang.Text = ""
Txttothut.Text = ""

Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

Untuk memberikan code bersih, double klik tombol bersih lalu masukkan code bersihnya seperti ini

Code keluar

Private Sub Cmdkeluar_Click()

Q = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")

If Q = vbOK Then

End

End If

End Sub

 Untuk memberikan code keluar, double klik tombol keluar lalu masukkan code keluar seperti ini

---SELESAI---