WPF VB.Net Tutorial

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="HierarchicalBinding" xmlns:local="clr-namespace:WpfApplication1">
  
    
      
        
          
            
              
                
                  
                  
                  
                

              

            
            
              
                
                  
                  
                

              

            
            
              
                
                  
                  
                

              

            
          

        

      
      
        
          
            
              
                
                  
                  
                  
                

              

            
            
              
                
                  
                  
                  
                

              

            
            
              
                
                  
                  
                  
                

              

            
          

        

      
    
          ItemsSource="{Binding Path=Members}">
      
    
          ItemsSource="{Binding Path=Comments}">
      
        
        (age: )
      

    
    
      
    
  

  
    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Collections.ObjectModel
Namespace WpfApplication1
  Public Class Comment
    Private m_description As String
    Public Property Description() As String
      Get
        Return m_description
      End Get
      Set
        m_description = value
      End Set
    End Property
  End Class
  Public Class Comments
    Inherits ObservableCollection(Of Comment)
  End Class
  Public Class Employee
    Private m_name As String
    Public Property Name() As String
      Get
        Return m_name
      End Get
      Set
        m_name = value
      End Set
    End Property
    Private m_age As Integer
    Public Property Age() As Integer
      Get
        Return m_age
      End Get
      Set
        m_age = value
      End Set
    End Property
    Private traits As Comments
    Public Property Comments() As Comments
      Get
        Return traits
      End Get
      Set
        traits = value
      End Set
    End Property
  End Class
  Public Class People
    Inherits ObservableCollection(Of Employee)
  End Class
  Public Class Company
    Private familyName As String
    Public Property CompanyName() As String
      Get
        Return familyName
      End Get
      Set
        familyName = value
      End Set
    End Property
    Private m_members As People
    Public Property Members() As People
      Get
        Return m_members
      End Get
      Set
        m_members = value
      End Set
    End Property
  End Class
  Public Class Companies
    Inherits ObservableCollection(Of Company)
  End Class
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
  End Class
End Namespace