Ok mit der Drehzahl, das scheint mir zu passen

Anzeige finster:
Code:
'-------------- ANZEIGE an ---------------------
  IF herzeigen = 1 THEN
'--------------------------------------------------
     For Test2 = 1 To 400                '..... und 400 mal Anzeigen
        For Zaehler = 1 To 5
          ...usw...
        Next Zaehler
     Next Test2

  ELSE
'--------------------------------------------------
'-------------- ANZEIGE finster----------------
'--------------------------------------------------
          Portb = 0
          Portd = 0
  END IF