如何获取背景颜色值，高分求救！！

Question

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim fcolor As Long
    fcolor = Form1.Point(X, Y)
    Debug.Print fcolor
End Sub

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim fColor As Long
    Dim cBlue As Long
    Dim cGreen As Long
    Dim cRed As Long
    fColor = Form1.Point(X, Y)
    cBlue = fColor \ 65536
    cGreen = (fColor - 65536 * cBlue) \ 256
    cRed = fColor - 65536 * cBlue - 256 * cGreen
    Debug.Print fColor, cBlue, cGreen, cRed
End Sub