Pointapi ?[Resolved]

[Pirate]

Why this won't work in .NET but work in VB6 with little difference(POINTAPI as Type not Structure)?

Private Structure POINTAPI
        Dim X As Long
        Dim Y As Long
    End Structure
    Dim mousepos As POINTAPI
 
    Private Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Long

Usage :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        GetCursorPos(mousepos)   ' Get Co-ordinets
        Label1.Text = "x: " & mousepos.X  ' Get x co-ordinates
        Label2.Text = "y: " & mousepos.Y ' Get y co-ordinates
    End Sub

[Lunatic3]

That doesnt work for me either, I tried Int32 instead of Long and still it didnt work, but I dont know why you want to ue that API when you can simply get the position of mouse on screen by:
Me.Cursor.Position.X and Me.Cursor.Position.Y

[Pirate]

Never thought of that . Thanks for making me look at it !