As Integer
   bmBits As Long
End Type

Private Const IDC_SIZENS = 32645&amp;
Private Const IDC_SIZEWE = 32644&amp;
Private Const IDC_NO = 32648&amp;

Private Const R2_NOTXORPEN = 10  '  DPxn

Private Const PATINVERT = &amp;H5A0049       ' (DWORD) dest = pattern XOR dest
Private Const DSTINVERT = &amp;H550009       ' (DWORD) dest = (NOT dest)

Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect
 As RECT) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As L