home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / api_mo~1 / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1995-02-27  |  586 b   |  21 lines
  1. Option Explicit
  2. Type PointAPI
  3.     x As Integer
  4.     y As Integer
  5. End Type
  6.  
  7. Type Rect
  8.     left As Integer
  9.     top As Integer
  10.     right As Integer
  11.     bottom As Integer
  12. End Type
  13.  
  14. Declare Sub GetCursorPos Lib "User" (lpPoint As PointAPI)
  15. Declare Sub GetClipCursor Lib "User" (lprc As Rect)
  16. Declare Sub ClipCursor Lib "User" (lpRect As Any)
  17. Declare Sub SetCursorPos Lib "User" (ByVal x As Integer, ByVal y As Integer)
  18. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As Rect)
  19. Declare Function ShowCursor Lib "User" (ByVal bShow As Integer) As Integer
  20.  
  21.