'通过遍历所有控件来找出所有文本框
Dim con As Control
For Each con In Me.Controls
If TypeOf (con) Is TextBox Then '这是一个文本框
Dim txt As TextBox = con
MsgBox(txt.Text)
End If
Next
Dim cTxt As Control
For Each cTxt In Me.Controls
If Object.ReferenceEquals(cTxt.GetType, GetType(System.Windows.Forms.TextBox)) Then
MessageBox.Show(cTxt.Text, cTxt.Name)
End If
Next