public class x
{
frmQuery a
public x(frmQuery f)
{
a = f;
Object b;
foreach(Control b in a.Controls)
{
if(b.GetType.Name = "TextBox")
{
CType(b, TextBox).Text = "thank you"
}
}
}
Public Class x
Dim a As frmQuery
Public Sub New(ByVal f As frmQuery)
a = f
Dim b As Object
For Each b In a.Controls
If b.GetType.Name = "TextBox" Then
CType(b, TextBox).Text = "thank you"
End If
Next
End Sub