Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
        For Each myControl As Control In Me.Controls
            If TypeOf myControl Is TextBox Then
                If CType(myControl, TextBox).Text = "zu suchender Text" Then
                    MsgBox(myControl.Name)
                End If
            End If
        Next
    End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.