Модератор: BV
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Form_Click()
Dim retval As Long
retval = sndPlaySound(LoadResData(1, "custom"), SND_FILENAME)
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5