取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit

取色器,动态给出RGB的值(VB6.0源代码编写)Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long Dim pColor As Long Dim R As Long, G As Long, B As Long Private Sub Form_Load() Picture1.ScaleMode =