WPF VB.Net

    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    x:Class="ElemCollMethods.Pane1"
    WindowTitle="UI Element Collection Methods Sample">
 
    UI Element Collection - Methods
    
        
            UIElement Count
        
    

    

 

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Data
Imports System.Windows.Input
Namespace ElemCollMethods
  Public Partial Class Pane1
    Inherits Page
    Private btn As System.Windows.Controls.Button, btn1 As System.Windows.Controls.Button, btn2 As System.Windows.Controls.Button, btn3 As System.Windows.Controls.Button
    Private Sub GetCount(sender As Object, e As RoutedEventArgs)
      Dim txt3 As New TextBlock()
      sp1.Children.Add(txt3)
      txt3.Text = "UIElement Count is equal to " + sp1.Children.Count.ToString()
    End Sub
  End Class
End Namespace