home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbcaptur / globals.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  886 b   |  16 lines
  1. Option Explicit
  2.  
  3. Type POINTAPI
  4.     X As Integer
  5.     Y As Integer
  6. End Type
  7.  
  8. Declare Sub ClientToScreen Lib "User" (ByVal hwnd As Integer, lpPoint As POINTAPI)
  9. Declare Sub SetCapture Lib "User" (ByVal hwnd As Integer)
  10. Declare Sub ReleaseCapture Lib "User" ()
  11. Declare Function CreateDC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As Long, ByVal lpOutput As Long, ByVal lpInitData As Long) As Integer
  12. Declare Sub DeleteDC Lib "GDI" (ByVal hDC As Integer)
  13. Declare Sub BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long)
  14. Declare Sub PatBlt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal dwRop As Long)
  15.  
  16.