 hWndParent As
 Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function InvalidateRect Lib "USER32" (ByVal hwnd As Long,
 lpRect As RECT, ByVal bErase As Long) As Long

' Message functions:
Private Declare Function SendMessageByString Lib "USER32" Alias "SendMessageA"
 (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As
 String) As Long
Private Declare Function SendMessageByLong Lib "USER32" Alias "SendMessageA"
 (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wPar