WPF VB.Net

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

          
        

      
    
    
      
        
          
            
              
                
                
              
              
                                   Style="{StaticResource GridViewColumnHeaderGripper}"
                     Background="Transparent"
                     />
            

            
          
        

      
    
    
      
    
    
      
        
        
          
            
          

        
      

    
    
      
        
          
            
          

        
      

    
    
      
        
          
            
          

        
      

    
    
      
        
          
            
          

        
      

    
  

  
                      HorizontalAlignment="Center">
        
                              ColumnHeaderContainerStyle="{StaticResource myHeaderStyle}">
                              CellTemplate="{StaticResource myCellTemplateYear}"/>
                              CellTemplate="{StaticResource myCellTemplateMonth}"/>
                              CellTemplate="{StaticResource myCellTemplateDay}"/>
          
        

      
  


//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.Windows.Controls.Primitives
Imports System.Collections.ObjectModel
Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
  End Class
  Public Class myDateCollection
    Inherits ObservableCollection(Of DateTime)
    Public Sub New()
      Add(New DateTime(2005, 1, 1))
      Add(New DateTime(2004, 8, 1))
      Add(New DateTime(2003, 12, 4))
      Add(New DateTime(2004, 2, 18))
      Add(New DateTime(2004, 6, 30))
    End Sub
  End Class
End Namespace