VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Mit folgender API-Funktion wird ein Ton von definierter Frequenz und Dauer (in Millisekunden) erzeugt (Leider funktioniert diese API erst ab Windows NT4/ME/2000):

Declare Sub Beep Lib "kernel32" ( _
    Optional ByVal Frequenz As Long = 440, _
    Optional ByVal Dauer As Long = 200)

So erhält man mit folgendem Code bei jedem Click auf die Form eine wundervolle Melodie:

Private Sub Form_Click()
  Do
    Beep CLng(Rnd * 10) * 20 + 200, _
         CLng(Rnd * 2) * 100 + 100
  Loop Until Rnd < 0.1
End Sub