PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height, _
          System.Drawing.Imaging.PixelFormat.Format24bppRgb)
        imgg = PictureBox1.Image
        Grafik = System.Drawing.Graphics.FromImage(PictureBox1.Image)
        If imgg.getpixel(x, y).ToString = "Color [A=255, R=255, G=0, B=0]" Then
            MsgBox("§")
            Stop
        End If
        Grafik.DrawLine(pen, x, y, xa, ya)
        PictureBox1.BackgroundImage = My.Resources.Blue_Star
        picturebox1.Refresh()

imgg.getpixel(x,y) = system.drawing.colors.red