Public Sub DibGet(ByVal IdSource As Long, XBegin As Long, ByVal YBegin As Long, ByVal XEnd As Long, ByVal YEnd As Long)
Dim iBitmap　　 As Long
Dim iDC　　 As Long
Dim I　　 As Long
Dim W　　 As Long
Dim H　　 As Long

On Error GoTo ErrLine
Done = False
TimeGet = timeGetTime
InPutWid = XEnd - XBegin
InPutHei = YEnd - YBegin
W = InPutWid + 1
H = InPutHei + 1

I = (Bits \ 8) - 1
ReDim ColVal(I, InPutWid, InPutHei)
With bi24BitInfo.bmiHeader
　　　.biBitCount = Bits
　　　.biCompression = 0&
　　　.biPlanes = 1
　　　.biSize = Len(bi24BitInfo.bmiHeader)
　　　.biWidth = W
　　　.biHeight = H
End With

iBitmap = GetCurrentObject(IdSource, 7&)
GetDIBits IdSource, iBitmap, 0&, H, ColVal(0, 0, 0), bi24BitInfo, 0&
DeleteObject iBitmap
Done = True
TimeGet = timeGetTime - TimeGet
Exit Sub
ErrLine:
MsgBox "错误号： " & Err.Number & "： " & Err.Descr iption
End Sub(The RGB value of a pixel is displayed, and the high hand continues)