WPF VB.Net

      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
      x:Class="dockpanel_dockprop_cs.Page1"
      WindowTitle="Docking Sample">
  
    
      Dock = "Left"
      Dock = "Right"
      Dock = "Top"
      Dock = "Bottom"
      Dock = "Left"
      Dock = "Right"
      Dock = "Top"
      Dock = "Bottom"
      LastChildDock="True"
      LastChildDock="False"
    
    
      
        
        
      
    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Controls.Primitives
Imports System.Windows.Documents
Imports System.Windows.Navigation
Namespace dockpanel_dockprop_cs
  Public Partial Class Page1
    Inherits Page
    Public Sub OnClick1(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect1, Dock.Left)
    End Sub
    Public Sub OnClick2(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect1, Dock.Right)
    End Sub
    Public Sub OnClick3(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect1, Dock.Top)
    End Sub
    Public Sub OnClick4(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect1, Dock.Bottom)
    End Sub
    Public Sub OnClick5(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect2, Dock.Left)
    End Sub
    Public Sub OnClick6(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect2, Dock.Right)
    End Sub
    Public Sub OnClick7(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect2, Dock.Top)
    End Sub
    Public Sub OnClick8(sender As Object, e As RoutedEventArgs)
      DockPanel.SetDock(rect2, Dock.Bottom)
    End Sub
    Public Sub OnClick9(sender As Object, e As RoutedEventArgs)
      AnotherDockPanel.LastChildFill = True
    End Sub
    Public Sub OnClick10(sender As Object, e As RoutedEventArgs)
      AnotherDockPanel.LastChildFill = False
    End Sub
  End Class
End Namespace