Problem sa kodom, VB2010, bitmap u string

Code:
Option Strict On
Imports System.ComponentModel.ProgressChangedEventArgs
Public Class Form1

    Private Sub BackgroundWorker1_ProgressChanged1(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub dug1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dug1.Click
        OpenFileDialog1.Title = ""
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.ShowDialog()
        PictureBox1.ImageLocation = OpenFileDialog1.FileName
    End Sub

    Private Sub dig2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dig2.Click
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork_1(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        CheckForIllegalCrossThreadCalls = False
        Dim Bild As Bitmap = CType(Me.PictureBox1.Image.Clone, Bitmap)
        Dim width As Integer = Bild.Width - 1
        Dim height As Integer = Bild.Height - 1
        For x = 1 To width
            For y = 1 To height
                ProgressBar1.Maximum = width * height
                BackgroundWorker1.ReportProgress(x * y)
                Dim R, G, B, A As Integer
                R = Bild.GetPixel(x, y).R
                G = Bild.GetPixel(x, y).G
                B = Bild.GetPixel(x, y).B
                A = Bild.GetPixel(x, y).A
                RichTextBox1.AppendText(R & "-" & G & "-" & B & "-" & A & "'" & x & "," & y & vbNewLine)
            Next
        Next
        dig2.Text = dig2.Text.Substring(0, dig2.Text.Length - 1)
        RichTextBox1.AppendText("|" & width & "*" & height)
    End Sub
End Class

Code:
BackgroundWorker1.ReportProgress(x * y)

Code:
BackgroundWorker1.WorkerReportsProgress = true