Как получить положение курсора мыши на раб. столе - VB

Формулировка задачи:

Мне надо сделать такую фишку: Если курсор находится над окном моей проги, то ширина окна становится в 2 раза больше, а если за пределами, то его ширина становится первоначальной Я пробовал сделать через стандартную процедуру для формы MouseMove, но это позволяет только расширить окно. А как сжать?

Решение задачи: «Как получить положение курсора мыши на раб. столе»

textual
                            Листинг программы 
                        

                            Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
x As Long
y As Long
End Type
 
Dim p As POINTAPI
Call GetCursorPos(p)
 
p.x ' Координата X
p.y ' Координата Y
                        