VB6 Code - Menghapus Isi Textbox Dengan Cepat

Di bawah ini merupakan procedure VB6 untuk menghapus isi/text yang terdapat dalam textbox dengan cepat. Kami buat menjadi procedure agar mudah dalam penggunaan dan memiliki sifat mudah digunakan kembali (reusability)

Option Explicit

Public Sub ClearAllTextBoxes(frmClearMe As Form)
    Dim txt As Control
    For Each txt In frmClearMe
        If TypeOf txt Is TextBox Then txt.Text = ""
    Next
End Sub

Contoh penggunaan/pemanggilan procedure di atas

Private Sub Command1_Click()
    ClearAllTextBoxes Me
End Sub