home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD84007302000.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-28  |  967 b   |  14 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
  5. Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  6. Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  7. Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
  8. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  9. Public Declare Function ReleaseCapture Lib "user32" () As Long
  10. Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  11. Public Const RGN_OR = 2
  12. Public Const WM_NCLBUTTONDOWN = &HA1
  13. Public Const HTCAPTION = 2
  14.