[highlight=vbnet]Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim x As Bitmap = PictureBox1.Image
Dim ref As Color = x.GetPixel(e.X, e.Y)
Dim rVal As Integer = ref.R
Dim gVal As Integer = ref.G
Dim bVal As Integer = ref.B
End Sub[/highlight]