Type TPoint Field X Field Y End Type Extern "win32" Function GetCursorPos%(point:Byte Ptr)'The API is expecting a byte ptr End Extern Function ccGetCursorPos:TPoint() 'Returns a TPoint Local point:TPoint = New TPoint If Not GetCursorPos(point) Then RuntimeError ("Error Getting Cursor Pos") Return Null Else Return point EndIf End Function Graphics 800,600,0 Repeat Cls Local point:Tpoint = ccGetCursorPos() DrawText point.X + " : " + point.Y, 12, 12 Flip Until KeyHit(KEY_ESCAPE)