Vielleicht geht es so (nicht getestet ...):
Code:
If Taster2 = 0 Then
   Waitms 100
   Do
      For Helligkeit = 150 To 0 Step -1
         Ocr2 = Helligkeit
         Waitms 10
      Next

      For Helligkeit = 0 To 150
         Ocr2 = Helligkeit
         Waitms 10
      Next
   Loop Until Taster2 = 0
End If
Evtl. das Waitms 100 noch erhöhen, wenn man beim 1. Mal Taster 2 nur sehr kurz drücken kann, damit das dauerhaft dimmt ...

Gruß Dirk