Kosongkan Semua Objek

Yang dimaksud di sini adalah mengosongkan semua object inputan seperti Textbox dan Combobox.

Berikut langkah pembuatannya:

1. Tambahkan sebuah Textbox, Combobox, dan Commandbutton ke dalam Form yang aktif.
2. Atur Commandbutton dengan nama Btn_Clear dengan caption Clear.
3. Setelah itu pada Btn_Clear_Click() masukkan kode berikut.

Private Sub Btn_Clear_Click()
Dim X as ControlFor Each X in Me
IfTypeOf X is Textbox Then X.Text=""
IfTypeOf X is Combobox Then X.Text=""
Next X
End Sub

4. Coba isi Textbox dan/atau Combobox tersebut dan klik Tombol Clear dan lihat Textbox/Combobox dikosongkan.

Download contoh programnya disini atau disini.