clare Function DrawFocusRect Lib "USER32" (ByVal hdc As Long, lpRect
 As RECT) As Long

Private Declare Function DrawState Lib "USER32" Alias "DrawStateA" _
    (ByVal hdc As Long, _
    ByVal hBrush As Long, _
    ByVal lpDrawStateProc As Long, _
    ByVal lParam As Long, _
    ByVal wParam As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal fuFlags As Long) As Long

'/* Image type */
Private Const DST_COMPLEX = &amp;H0&amp;
Private Const DST_T