kann mir jemand sagen, wie ich kleine pausen (im millisekunden-bereich) in diesen code zwischen einzelnen tönen einfügen kann ? nehme ich dafür die funktion SLEEP ? mit WAIT geht es ja nicht.
Declare
Function Ton& Lib "kernel32" Alias "Beep" _
(ByVal dwFrequenz As Long, ByVal dwDauer As Long)
Sub thats_it()
Ton 523.3, 100
Ton 523.3, 100
Ton 523.3, 100
Ton 587.3, 100
Ton 523.3, 100
Ton 659.3, 100
Ton 698.5, 100
End Sub
danke euch !!