Option Strict On

Public Class form1

    'VisualBasic 2008 

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        Dim bmpSample As Bitmap = CType(PictureBox1.Image, Bitmap)

        If bmpSample IsNot Nothing Then

            Label1.Text = bmpSample.GetPixel(e.X, e.Y).ToString

        End If



        Label2.Text = e.X.ToString

        Label3.Text = e.Y.ToString

    End Sub

End Class