[Mohamed371]

السلام عليكم ورحمة الله وبركاته

كود :

Dim pic As Bitmap
pic = New Bitmap(510, 900)
pic = My.Resources.p531
Dim r, g, b As Integer
For y1 As Integer = 359 To 319
For x1 As Integer = 389 To 509  
Dim p4 As Color = pic.GetPixel(x1, y1)    
r = p4.R : g = p4.G : b = p4.B    
If r < 30 And g < 30 And b < 30 Then    
pic.SetPixel(x1, y1, Color.Blue)      
End If    
Next  
Next

هنا كود setpixel لا يعمل إلا إذا كانت pic فارغة .. أي أن السطر الثالث غير موجود