If the active window is a form that you made, add the following code:
Code:
Dim XWindow, YWindow As Single
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
XWindow = X
YWindow = Y
End Sub
XWindow contains the X coordinate.
YWindow contains the Y coordinate.

------------------
Tom Young, 14 Year Old
[email protected]
ICQ: 15743470
AIM: TomY10
PERL, JavaScript and VB Programmer