【VB.NET】フォーム上のテキストボックスをクリアする

' ボタンがクリックされたらフォーム上のテキストボックスをクリアします
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For Each ctlItem As Control In Me.Controls
        If TypeOf ctlItem Is TextBox Then
            ctlItem.Text = String.Empty
        End If
    Next
End Sub

 ボタンがクリックされたらPanelコントロール上のテキストボックスをクリアします
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim textItem As TextBox

    For Each textItem In Panel1.Controls
        textItem.Clear()
    Next
End Sub

' テキストボックスをクリアするプロシージャ
Public Shared Sub ClearTextBox(ByVal hParent As Control)
    ' hParent内のすべてのコントロールを取得する
    For Each ctlItem As Control In hParent.Controls
        ' 取得したコントロールにコントロールが含まれている場合は再帰呼び出しする
        If ctlItem.HasChildren Then
            ClearTextBox(ctlItem)
        End If

        ' TextBoxおよびRichTextBoxなどのテキストボックスをクリアする
        If TypeOf ctlItem Is TextBoxBase Then
            ctlItem.Text = String.Empty
        End If
    Next ctlItem
End Sub

' ボタンがクリックされたらClearTextBoxプロシージャを呼び出す
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ClearTextBox(Me)
End Sub