سورس Clear all Textboxes on a Form ویژوال بیسیک

Public Sub ClearTextBoxes(frmClearMe As Form)

 Dim txt As Control

'clear the text boxes
 For Each txt In frmClearMe

  If TypeOf txt Is TextBox Then txt.Text = ""

 Next

End Sub