Sub que apaga textbox's de uma só vez

17:36 // by Dr.Spy // , // 0 comentários
Sub para Apagar os TextBox's de uma só vez.

Private Sub LimpaTextBoxs()
Dim texto As Control

For Each texto In Me.Controls
If TypeOf texto Is TextBox Then
texto.Text = ""
End If
Next

End Sub


Por Dr.Spy
edit post

Comments

Postar um comentário

Assinar: Postar comentários (Atom)