gistfile1.txt

 Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click 'ปุ่มนะ
        ClearTextBox(Me) 'เรียกใช้ฟังก์ชั่นข้างล่าง
    End Sub
    
   Public Sub ClearTextBox(ByVal root As Control) 'เอาฟังชั่นนี้ไปใส่ไว้ตรงไหนก็ได้
        For Each ctrl As Control In root.Controls
            ClearTextBox(ctrl)
            If TypeOf ctrl Is TextBox Then
                CType(ctrl, TextBox).Text = String.Empty
            End If
        Next ctrl
    End Sub