Ich war gerade dabei, dir diese Fehler auch zu sagen.
Übriggeblieben ist der in der Zeile
Pixel = Pixel1 ' single in byte umwandeln
Pixelpuffer(pixelzeiger) = Pixel1 'Müsste das evtl. anders herum sein???????

Pixel1 hast du nirgendwo benutzt oder gesetzt, wird also immer 0 sein.
Dein Programm ist ja sicherlich umfangreicher als nur der Ausschnitt hier.
Denn so für sich wird das sicherlich nicht gehen.

Gruß

Rolf