3
Contributors
2
Replies
9
Views
4 Years
Discussion Span
Last Post by Jx_Man
1

Try this :

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    w = Picture1.Point(X, Y)
    R = w And RGB(255, 0, 0)

    G = Int((w And RGB(0, 255, 0)) / 256)
    B = Int(Int((w And RGB(0, 0, 255)) / 256) / 256)
    labelR.Caption = R
    labelR.Caption.Text = G
    labelR.Caption.Text = B
End Sub
Votes + Comments
Thank you :)
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.