Lyd med Visual Basic

http://www.vbexplorer.com/VBExplorer/tips/src22.htm

Det var ikke megen hjælp. Jeg havde forventet oplysninger om, hvorledes man sætter tonehøjde, varighed, styrke m. v.

Så prøv den her..

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Activate()
Dim Cnt As Long
  For Cnt = 0 To 5000 Step 10
    Beep Cnt, 50
    Me.Caption = Cnt
    DoEvents
  Next
End Sub