WPF VB.Net Tutorial

    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    x:Class="Thumb_wcp.Pane1">
  
             Width="{Binding ElementName=myCanvasStretch,Path=Width}"  
         Height="{Binding ElementName=myCanvasStretch,Path=Height}" 
         Text="Size: 100, 100"/>
              Width="20" Height="20" DragDelta="onDragDelta"/>
  

//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
Imports System.Windows.Shapes
Imports System.Windows.Data
Imports System.Windows.Media
Namespace Thumb_wcp
  Public Partial Class Pane1
    Inherits Canvas
    Private Sub onDragDelta(sender As Object, e As DragDeltaEventArgs)
      Dim yadjust As Double = myCanvasStretch.Height + e.VerticalChange
      Dim xadjust As Double = myCanvasStretch.Width + e.HorizontalChange
      If (xadjust >= 0) AndAlso (yadjust >= 0) Then
        myCanvasStretch.Width = xadjust
        myCanvasStretch.Height = yadjust
        Canvas.SetLeft(myThumb, Canvas.GetLeft(myThumb) + e.HorizontalChange)
        Canvas.SetTop(myThumb, Canvas.GetTop(myThumb) + e.VerticalChange)
        Console.WriteLine(myCanvasStretch.Width)
        Console.WriteLine(myCanvasStretch.Height)
      End If
    End Sub
  End Class
End Namespace