I'm trying to build a controls editor, that given a control (textbox)
somewhere
on a form, it can be moved using the mouse to drag-drop
I have a simple form with a square text box (1" x 1") and 2 info text
boxes (txtX and txtY)
the square text box has this mouse move event
Dim p As POINTAPI
GetCursorPos p
txtX = p.X
txtY = p.Y
using this api
Type POINTAPI
X As Integer
Y As Integer
End Type
Declare Sub GetCursorPos Lib "User32" (lpPoint As POINTAPI)
if I have the focus on the txtX box,
as I move the mouse within the square text box, txtX changes as
expected, but txtY is always 0
if I have the focus on square text box, same thing happens
I tried using a label and a command control... same result
any idea why Y is always 0 ?
ps. using access97