utilizzo questa funzione per convertire un'immagine in bianco e nero:


Public Function ConvertToGrayscale(ByVal source As Bitmap) As Bitmap

Dim bm As New Bitmap(source.Width, source.Height)

Dim x

Dim y

For y = 0 To bm.Height

For x = 0 To bm.Width

Dim c As Color = source.GetPixel(x, y)

Dim luma As Integer = CInt(c.R * 0.3 + c.G * 0.59 + c.B * 0.11)

bm.SetPixel(x, y, Color.FromArgb(luma, luma, luma))

Next

Next
PictureBox1.Image = bm
Return bm


End Function


mi dà un messaggio d'errore:
Il parametro deve essere positivo e minore di Width.
Nome parametro: x

cosa sbaglio???
se imposto per entrami al posto di

For y = 0 To bm.Height

For x = 0 To bm.Width

metto

For y = 0 To 60 ( o anche un altro valore)
For x = 0 To 60 (o ache un altro valore)


funziona....mi sapete dire dov'è il problema??
grazie!
ci ho smanettato un po' ma non riesco a capire il perchè non va...