скриншот и обработка картинки

[maxillion]

Код: Выделить всё

        Dim Bitmap As New Bitmap(50, 50)
        Dim Graphics = System.Drawing.Graphics.FromImage(Bitmap)
        Graphics.CopyFromScreen(0, 0, 50, 50, Bitmap.Size)
        Graphics.Dispose()
        Dim rect As New Rectangle(0, 0, 50, 50)
        Dim bmpData As System.Drawing.Imaging.BitmapData = Bitmap.LockBits(rect, Drawing.Imaging.ImageLockMode.ReadWrite, Bitmap.PixelFormat)
        Bitmap.UnlockBits(bmpData)
        PictureBox1.Image = Bitmap
        Bitmap.Dispose()

не пойму почему то не хочет работать выдает непонятную ошибку

[maxillion]

всем спасибо разобрался сам