Sub Beispiel(ByVal strGesuchterName As String)
Dim intIndex   As Integer = Nothing
Dim tmpControl As System.Windows.Forms.Control = Nothing
 
'Schleife von 0 bis zur Maximalen Anzahl der im Formular befindlichen 
' Steuerelemente
For intIndex = 0 To Me.Controls.Count -1
    'Control des Index einlesen
    tmpControl = FormIN.Controls.Item(intIndex)
    'Überprüfen ob das Steuerelement den gesuchten Namen hat
 
    If tmpControl.Name = strGesuchterName Then
       tmpControl.Visible = True
    End
 
Next
End Sub