הדוגמא לקוחה מתוך האתר dr-vb Private Declare Function sndPlaySound Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Command1_Click() sndPlaySound "C:\Windows\Media\Chimes.wav", 0 End Sub
|