Grafica - ottenere Il Colore Sotto La Punta Del Mouse

mouse # Come ottenere il colore del pixel sotto la posizione del mouse
A volte nella stesura di un'applicazione di manipolazione grafica si necessita' di una funzione che restituisca il colore di un pixel puntato dal mouse, la funzione implementa cio' agganciando la routine all'evento mousemove di un componente PictureBox
Sub Picture1_MouseMove ( Button As Integer, Shift As Integer, X As Single, Y As Single )
Dim lngColour As Long
Dim intRed As Integer
Dim intGreen As Integer
Dim intBlue As Integer
lngColour = Picture1.Point ( X, Y )
intRed = ( lngColour And &HFF& )
intGren = ( lngColour And &HFF00& ) / &H100&
intBlue = ( lngColour And &HFF0000& ) / &H10000&
End Sub