Avira sound di Vb6

add 1 Command Button


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

Private Sub AvirasBeep()
    Beep 1500, 100 'frekuensi 1500khz, durasi 100 milidetik
    Beep 2000, 80 'frekuensi 2000khz, durasi 80 milidetik
    Beep 3200, 70 'frekuensi 3200khz, durasi 70 milidetik
End Sub

Private Sub Command1_Click()
    AvirasBeep
End Sub