e' capitato anche a me e ho risolto cosi':

For y = 0 To (bm.Height-1)

For x = 0 To (bm.Width-1)

funziona (ovvero non mi dava piu' errore) ma non so se basta