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
---SELESAI---
Tidak ada komentar:
Posting Komentar