Menghapus Seluruh Isi TextBox Menggunakan For Each - VB6

Terkadang kita membutuhkan cara yang praktis untuk menghapus seluruh TextBox yang terdapat pada Form secara sekaligus. Tanpa harus menghapusnya satu persatu seperti Text1 = "", Text2 = "". Bagaimana jika dalam sebuah Form terdapat banyak object TextBox, misalnya ada 35 TextBox?

Berikut adalah cara menghapus seluruh text yang terdapat pada TextBox menggunakan VB6 code:

Option Explicit 
 
Private Sub Command1_Click() 
    ClearAllTextbox 
End Sub 
 
Private Sub ClearAllTextbox() 
    Dim t As Control 
        For Each t In Me.Controls 
        If TypeOf t Is TextBox Then   
            t.Text = "" 
        End If 
    Next 
End Sub 

Demikianlah cara menghapus seluruh text yang terdapat pada object TextBox secara sekaligus menggunakan perulangan For .. Each.