<div>
Put this in a module:<br />
Type POINTAPI<br />
&nbsp; &nbsp; &nbsp; &nbsp; x As Long<br />
&nbsp; &nbsp; &nbsp; &nbsp; y As Long<br />
End Type<br />
Declare Function GetCursorPos Lib &quot;user32&quot; Alias &quot;GetCursorPos&quot; (lpPoint As POINTAPI) As Long<br />
<br />
<br />
Now, to get the cursor location, use:<br />
<br />
Dim p as POINTAPI<br />
Dim X as long<br />
X=GetCursorPos(p)<br />
<br />
'p.X and p.Y will hold the coordinates<br />
<br />

</div>


Put this in a module:
Type POINTAPI
        x As Long
        y As Long
End Type
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long


Now, to get the cursor location, use:

Dim p as POINTAPI
Dim X as long
X=GetCursorPos(p)

'p.X and p.Y will hold the coordinates



<div>
MIke, this is great and I have it working...do you know how to tell what the left and top of a form are using the same type of coordinates? &nbsp;What I'm trying to do is to find if the mouse is outside of my form...Thanks<br />

</div>


MIke, this is great and I have it working...do you know how to tell what the left and top of a form are using the same type of coordinates?  What I'm trying to do is to find if the mouse is outside of my form...Thanks


<div>
Sorry it took me so long to respond:<br />
<br />
Dim nX as single<br />
Dim nY as single<br />
nX=P.X/Screen.TwipsPerPixe<wbr />lX<br />
nY=P.Y/Screen.TwipsPerPixe<wbr />lY<br />

</div>


Sorry it took me so long to respond:

Dim nX as single
Dim nY as single
nX=P.X/Screen.TwipsPerPixelX
nY=P.Y/Screen.TwipsPerPixelY


<div>
Thanks once again Mike!<br />

</div>


<div>
<div class="content wysiwyg-content">
I need to find the X, and Y coordinate position of the mouse on the screen (Whether its on my form or not) how can I do this using the API? &nbsp;I have searched but do not understand the API calls...Thanks
</div>
</div>


I need to find the X, and Y coordinate position of the mouse on the screen (Whether its on my form or not) how can I do this using the API?  I have searched but do not understand the API calls...Thanks

How to use GetCursorPos

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.