home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / sweeney2048232172007.psc / SUDOKU / api.bas next >
BASIC Source File  |  2007-02-05  |  868b  |  22 lines
  1. Attribute VB_Name = "api"
  2. Public PositionBefore As POINTAPI, PositionNow As POINTAPI
  3. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  4. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  5. Public Const MOUSEEVENTF_LEFTDOWN = &H2
  6. Public Const MOUSEEVENTF_LEFTUP = &H4
  7.  
  8.  
  9. Public Declare Function CreateEllipticRgn Lib "gdi32" _
  10.     (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
  11.     ByVal Y2 As Long) As Long
  12. Public Declare Function SetWindowRgn Lib "user32" _
  13.     (ByVal hWnd As Long, ByVal hRgn As Long, _
  14.     ByVal blnRedraw As Boolean) As Long
  15. Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  16. Public Type POINTAPI
  17.         X As Long
  18.         Y As Long
  19. End Type
  20.  
  21.  
  22.