มี Textbox อยู่ 6 ตัว หรือมากกว่านั้น อยากจะส่ง textbox เข้าไปเคลียร์ค่าให้เป็นค่าว่าง จะต้องเพิ่มคำสั่งอย่างไรครับ จากตัวอย่าง

Private Sub ClearTextboxes()
   For Each txt As Control In Me.Controls
      If TypeOf txt Is TextBox Then
          txt.Text = ""
     End If
  Next
End Sub

txt.text = String.Empty

Sub ClearForm() 'ClearFrom 
        txt1.Text = String.Empty
        txt2.Text = String.Empty
        txt3.Text= String.Empty
        txt4.Text = String.Empty
End Sub

// แล้วนำไปเรียกใช้อาจจะใน Fromload หรือตอนกดที่เราจะเรียกใช้ก็แบบนี้ครับ

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        ClearForm() 
End Sub