danke euch beiden für die schnelle antwort, hat mir sehr geholfen.
ich hätte noch eine frage zu einem anderen codestück:
Private Function BitmapDiff(ByVal b1 As Bitmap, ByVal b2 As Bitmap) As Bitmap
Dim bm As New Bitmap(b1.Width, b1.Height)
Dim A, B As Integer
A = 0 ; B = 0
For y As Integer = 0 To b1.Height - 1
ProgressBar2.Value = y / 480 * 100
For x As Integer = 0 To b1.Width - 1
If b1.GetPixel(x, y) b2.GetPixel(x, y) Then
bm.SetPixel(x, y, Color.Black)
A = A + 1
Else
bm.SetPixel(x, y, Color.White)
B = B + 1
End If
Next
Next
Pro1 = Math.Round(A / 307200 * 100.0, 4)
Pro2 = Math.Round(B / 307200 * 100.0, 4)
TextBox3.Text = Pro2 & " %"
TextBox2.Text = Pro1 & " %"
Return bm
PictureBox3.Image = Nothing
End Function
was macht dieser code, er müsste theoretisch 2 bilder pixelweise vergleichen.