Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Cont As Control
Dim i as integer
txtbox1.Text = "txt1"
txtbox2.Text = "txt2"
'Controls(0).Text = "Hello"
Controls.Item(0).Text = "Hello"
For i = 0 To Controls.Count - 1
Debug.WriteLine(Controls(i).GetType)
'Me.Controls(ii).GetType.Name()
Next
i = 0
Dim T As Object
For Each Cont In Me.Controls
Select Case Cont.GetType.Name
Case "CheckBox"
MsgBox("is checkbox")
Case "TextBox"
MsgBox("is textbox")
Case "Label"
MsgBox("Label")
Case "Button"
MsgBox("is Button")
End Select
i += 1
If TypeOf Cont Is TextBox Then
MessageBox.Show("The control is a textbox." & _
" Control:" & i & vbCrLf & Cont.Text)
ElseIf TypeOf Cont Is Button Then
MsgBox("The control is a button." & " Control:" & i)
ElseIf TypeOf Cont Is CheckBox Then
MsgBox("The control is a checkbox." & " Control:" & i)
ElseIf TypeOf Cont Is Label Then
MsgBox("The control is a Label." & " Control:" & i)
End If
Next Cont
End Sub