For Each ctrl In ... ?
       MsgBox(ctrl.Name)
next

Dim grid = MyClass.FindAncestor(Of Grid)(Me.Content) 

Public Shared Function FindAncestor(Of TT As Class)(dependencyObject As DependencyObject) As TT

        Dim target As DependencyObject = dependencyObject

        Do
            target = VisualTreeHelper.GetParent(target)


        Loop While target IsNot Nothing AndAlso Not (TypeOf target Is TT)
        
        Return TryCast(target, TT)

 End Function

<System.Runtime.CompilerServices.Extension> 

GetChildren(Of Grid)(Me.Content)

Public Shared Function GetChildren(Of TChild As Class)(reference As DependencyObject) As List(Of TChild)
	Dim result As New List(Of TChild)()

	' enumerate all of the children of the supplied element searching for all the   
	' elements that match the supplied type  
	For x As Integer = 0 To VisualTreeHelper.GetChildrenCount(reference) - 1
		Dim child As DependencyObject = VisualTreeHelper.GetChild(reference, x)
		Dim tChildInstance As TChild = TryCast(child, TChild)
		If tChildInstance IsNot Nothing Then
			result.Add(tChildInstance)
		End If

                If child.DependencyObjectType.Name = "Label" Then
                     MsgBox(DirectCast(child, System.Windows.Controls.Label).Content.ToString)
                     .....................
                end if
		' now repeat the process on all the children of the current child element  
		' by recursively calling this method  
		'result.AddRange(child.GetChildren(Of TChild)())
	Next
	Return result
End Function