Bip Système

je suis un peu perdu dans ces nouveaux thèmes du forum...

je voudrais emmettre un bip sonore en VB6. Il n'y a pas de haut parleurs sur la machine où tournera mon programme, donc il fatu que se soit un bip system. j'ai deja essayé 2 solutions trouvées sur le fourm ou dans les sources mais aucunes ne fonctionnent.
voila les méthodes que j'ai essayées :
- appeler la méthode Beep

    Private Sub Command1_Click()
        Beep
     End Sub

- utiliser l'api beep de kernel32

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

    Private Sub Command1_Click()
        Beep 1, 1
    End Sub
   
Aucune des 2 méthodes ne fonctionnent. ce n'est pas un probleme au nuiveau du bip car je l'entend quand la machine démarre.

je suis vraiment perdu. un peu d'aide serait la bienvenue. merci

merci merci!!! ca marche!!