How to get GetCursor and SetCursor together...

[ramp10er]

I have this code where it can give me the range of my cursor but I also want to insert cursor or set my cursor within that range, how to call the x and y with SetCursor? After that I want to insert/attach a string in to it, i.e. Text=X and Y, do I need to use Dim as Range or Dim as Long? I tried SetCursorPos PT.x,PT.y and SetCursorPos Text1.text, but it gives me error or Invalid outside Procedure...

Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub Timer1_Timer()
    Dim PT As POINTAPI
    GetCursorPos PT
    Text1.Text = "(" & PT.x & "," & PT.y & ")"
End Sub

[DataMiser]

The error message you mention indicates that you placed the code outside of a procedure.
Since you did not show that code we don;t know where you put it but that is what the error is telling you.

All code must be inside a sub or function block.
Only declares can be placed outside of a procedure.