Public Class Form1
    Dim bmp As New Bitmap(50, 50) 'oder dein Bild
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.SetBounds(10, 10, bmp.Width, bmp.Height)
        Using g As Graphics = Graphics.FromImage(bmp)
            g.Clear(Color.White)
        End Using
 
        Dim r As New Random
        For i As Int32 = 1 To 5000
            bmp.SetPixel(r.Next(50), r.Next(50), Color.FromArgb(r.Next(256), _
              r.Next(256), r.Next(256)))
        Next
        PictureBox1.Image = bmp  'nun in der PictureBox anzeigen
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Me.BackColor = bmp.GetPixel(e.X, e.Y)
        Me.Text = e.Location.ToString
    End Sub
End Class