eclare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Const WM_DESTROY = &amp;H2
Private Const WM_SIZING = &amp;H214
Private Const WM_MOVING = &amp;H216&amp;
Private Const WM_ENTERSIZEMOVE = &amp;H231&amp;
Private Const WM_EXITSIZEMOVE = &amp;H232&amp;
Private Const WM_ACTIVATE = &amp;H6
Private Const WM_SIZE = &amp;H5

Private m_hWnd As 