A simple resizing window

[EagleEye]

Public Class ResizableWindow
Inherits StdWindow

Protected WithEvents Resizer As New MyResizer

Public Overrides Sub Initialize()
MyBase.Initialize()
AddChild(Resizer)
Resizer.Initialize()
End Sub
Private Sub IWasResized() Handles MyBase.Resized
If Resizer.Left <> Width - Resizer.Width Then Resizer.Left =
Width - Resizer.Width
If Resizer.Top <> Height - Resizer.Height Then Resizer.Top =
Height - Resizer.Height
End Sub
End Class

Public Class MyResizer
Inherits guiControlBase

Public Overridable Sub Initialize()
DragBehavior = DragBehaviors.DragWithinParent
CanBeDragged(0) = True
DelayBeforeDrag = 0
ScaleWithParent = False
MoveDistanceBeforeDrag = 0
With Background.Base.Texture
.Enable()
.Tex = "resizer"
End With
End Sub

End Class