Private Sub Form1_MouseMove(sender As Object, _
   e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
 
   If e.Button = Windows.Forms.MouseButtons.None Then
      If e.Location.X > Me.Width - 3 And e.Location.Y > Me.Height - 3 Then
         Cursor = Cursors.SizeNWSE
      ElseIf e.Location.X > Me.Width - 3 Then
         Cursor = Cursors.SizeWE
      ElseIf e.Location.Y > Me.Height - 3 Then
         Cursor = Cursors.SizeNS
      Else
         Cursor = Cursors.Default
      End If
   ElseIf e.Button = Windows.Forms.MouseButtons.Left Then
      Dim w As Integer = Math.Max(e.Location.X, 200)
      Dim h As Integer = Math.Max(e.Location.Y, 200)
      If Cursor = Cursors.SizeNWSE Then
         Me.Width = w : Me.Height = h
      ElseIf Cursor = Cursors.SizeWE Then
         Me.Width = w
      ElseIf Cursor = Cursors.SizeNS Then
         Me.Height = h
      End If
   End If
End Sub