Protected Overloads Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &H216 Then
  ' WM_MOVING = 0x216
  Dim rect As Rectangle = DirectCast( _
    Runtime.InteropServices.Marshal.PtrToStructure(m.LParam, GetType( _
    Rectangle)), Rectangle)
  '
  ' Form zeichnen
  '
End If
MyBase.WndProc(m)
End Sub