Resizing a Custom WPF Window

Class MainWindow


	Private Sub Top_DragDelta(ByVal sender as Object, ByVal e as System.Windows.Controls.Primitives.DragDeltaEventArgs)
		'TODO: Add event handler implementation here.
		If Me.Height > Me.MinHeight Then
			Me.Height -= e.VerticalChange
			Me.Top += e.VerticalChange
		Else
			Me.Height = Me.MinHeight + 4
			TopThumb.ReleaseMouseCapture()
		End If
	End Sub

	Private Sub Btm_DragDelta(ByVal sender as Object, ByVal e as System.Windows.Controls.Primitives.DragDeltaEventArgs)
		'TODO: Add event handler implementation here.
		If Me.Height > Me.MinHeight Then
			Me.Height += e.VerticalChange
		Else
			Me.Height = Me.MinHeight + 4
			BtmThumb.ReleaseMouseCapture()
		End If
	End Sub

	Private Sub Rgt_DragDelta(ByVal sender as Object, ByVal e as System.Windows.Controls.Primitives.DragDeltaEventArgs)
		'TODO: Add event handler implementation here.
		If Me.Width > Me.MinWidth Then
			Me.Width += e.HorizontalChange
		Else
			Me.Width = Me.MinWidth + 4
			RgtThumb.ReleaseMouseCapture()
		End If
	End Sub

	Private Sub Lft_DragDelta(ByVal sender as Object, ByVal e as System.Windows.Controls.Primitives.DragDeltaEventArgs)
		'TODO: Add event handler implementation here.
		If Me.Width > Me.MinWidth Then
			Me.Width -= e.HorizontalChange
			Me.Left += e.HorizontalChange
		Else
			Me.Width = Me.MinWidth + 4
			LftThumb.ReleaseMouseCapture()
		End If
	End Sub
End Class