Hur gör man för att anropa windows standardljud så at de låter i högtalarna?

Lägg denhär deklarationen under General, på en rad

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long




Och dethär under en knapp

Private Sub Command1_Click()
x = sndPlaySound("c:\windows\media\the microsoft sound.wav", 1)
End Sub

Det kanske är kommandot "Beep" du ska använda, har för mig att det spelar upp ljudet som är inställt för tillfället.

/Johan