Hallo,
danke für die Antworten.

Ich möchte es ersteinmal ohne Timer probieren.

Das mit der For Schleife habe ich umgesetzt:

Code:
           Sub Genhz(byval Freq As Integer , Byval Lenms As Integer)
Dim Idelay As Integer
dim Tgone As Integer
Dim I As Integer

Tgone = 0

Idelay = Freq / 2
Idelay = 1 / Idelay
Idelay = Idelay * 1000


While Tgone < Lenms
Toggle Portd.5

Tgone = Tgone + Idelay

     For I = 1 To Idelay
       Waitms 1
       Next I


Wend

End Sub
jedoch befürchte ich, dass ich wieder irgend eine Besonderheit von Bascom übersehen habe, denn es funktioniert auch nicht.

Was kann man alles falsch machen, wo darf man keine Variablen verwenden?

Es grüßt,
Basteltisch