'### Apis ###
Declare PtrSafe Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" ( _
ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare PtrSafe Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" ( _
ByVal Hwnd As Long, ByVal nIndex As Long)
Declare PtrSafe Function SetWindowPos& Lib "user32" ( _
ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Declare PtrSafe Function GetWindowRect& Lib "user32" (ByVal Hwnd As Long, lpRect As structRECT)