Voici mon programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
   Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
   (ByVal lpszName As String, _
   ByVal hModule As Long, _
   ByVal dwFlags As Long) As Long
   Private Const SND_SYNC = &H0
   Private Const SND_MEMORY = &H4
    End Option
    Dim s
       s = StrConv(LoadResData(101, "SOUND"), vbUnicode)
       PlaySound s, 0, SND_MEMORY
Quand PlaySound fonctionne, impossible de cliquer et faire fonctionner la souris