//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Media Namespace WpfApplication1 Public Partial Class FEFindName Private Sub Find(sender As Object, e As RoutedEventArgs) Dim wantedNode As Object = stackPanel.FindName("dog") If TypeOf wantedNode Is TextBlock Then Dim wantedChild As TextBlock = TryCast(wantedNode, TextBlock) wantedChild.Foreground = Brushes.Blue End If End Sub End Class End Namespace