vb.net中同时编辑Text Box文本框（加入文本、清空）

  '**********文本框清空*********
    Private Sub BoxClear()
        Dim obj As Object, objName As String, i As Integer
        For Each obj In Me.Controls '枚举窗体所有控件
            'Debug.Print(TypeName(obj)）
            If TypeName(obj) = "TextBox" Then '判读是否为文本框
                objName = obj.Name '获取文本控件名称,这里可以根据名称来判读赋值，也可以根据其他属性复制
                'Console.WriteLine("x:" & TypeName(obj))
                'Console.WriteLine("x1:" & objName)
                obj.Text = ""
            End If
        Next
    End Sub