Помогите мне очистить все текстовые поля?

Question

Я скомпилировал только следующее небольшое приложение. Я хочу, чтобы все текстовые поля были очищены, когда пользовательские вкладки были введены пользователем, как это можно достичь?

Public Class Form1 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim FILE_NAME As String = "C:\test.pgp" 

    If System.IO.File.Exists(FILE_NAME) = True Then 
     Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 
     objWriter.WriteLine((TextBox2.Text) + "," + "  " + "*" + (TextBox1.Text)) 
     objWriter.Close() 
     MsgBox("The acad.pgp file was successfully appended…") 
    Else 
     MsgBox("File missing reinstall or contact vendor…") 
    End If 
End Sub 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
    Dim FILE_NAME As String = "C:\test.pgp" 

    If System.IO.File.Exists(FILE_NAME) = True Then 
     Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 
     objWriter.WriteLine((TextBox3.Text) + "," + "  " + "START " + (TextBox4.Text) + ", 1,,") 
     objWriter.Close() 
     MsgBox("The acad.pgp file was successfully appended…") 
    Else 
     MsgBox("File missing reinstall or contact vendor…") 
    End If 
End Sub 

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 
    Dim FILE_NAME As String = "C:\test.pgp" 

    If System.IO.File.Exists(FILE_NAME) = True Then 
     Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 
     objWriter.WriteLine((TextBox5.Text) + "," + "  " + "START " + (TextBox6.Text) + ", 1,,") 
     objWriter.Close() 
     MsgBox("The acad.pgp file was successfully appended…") 
    Else 
     MsgBox("File missing reinstall or contact vendor…") 
    End If 

End Class

Answer 1

Public Sub ClearTextBoxes(frmClearMe As Form) 

Dim txt As Control 

    For Each txt In frmClearMe 

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

    Next 

End Sub