modmain.bas

这是个不错的源程序

Attribute VB_Name = "modMain"


Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal Color As Long) As Byte
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Long, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Long
Global Const SRCCOPY = &HCC0020

Public sChoice As String