"Beeps" con diferentes tonos en basic

[seba123neo]

Hola, con la api Beep podes ajustar la frecuencia y el tiempo...ejemplo basico:

Código vb:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub Command1_Click()
    Beep 1000, 500
End Sub
 

y si pones imaginación podes hacer bucles que aumenten la frecuencia en cada ciclo y asi obtener sonidos muy buenos..por ejemplo este parece el de mario bros jeje..

Código vb:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
Private Sub Command1_Click()
    Dim Cnt As Long
    For Cnt = 0 To 700 Step 10
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub
 

saludos.