<< Click to Display Table of Contents >> Beep (Anweisung)

Beep

Gibt einen kurzen Ton aus.

Legen Sie die Anzahl der Töne fest und die Pause zwischen den Tönen in Millisekunden (z.B. 1000 für 1 Sekunde).

Beispiel:

Declare Function Pause Lib "kernel32" ALIAS "WaitForSingleObject" ( _

 ByVal hHandle As Long, _

 ByVal dwMilliseconds As Long) As Long

Sub Beep3x

 Dim i As Integer

 For i = 1 to 3

         Beep

         Pause -1, 1000

 Next i

End Sub