If the active window is a form that you made, add the following code:
XWindow contains the X coordinate.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
YWindow contains the Y coordinate.
------------------
Tom Young, 14 Year Old
[email protected]
ICQ: 15743470
AIM: TomY10
PERL, JavaScript and VB Programmer




Reply With Quote