Ga naar inhoud

Bingo op Excel 64 bit


Andrevb1942
 Delen

Aanbevolen berichten


Vervang dit

 

Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

 

door dit

 

#If VBA7 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwflags As Long) As Long
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwflags As Long) As Long
#End If

 

en probeer nogmaals.

Link naar reactie
Delen op andere sites


 Delen

×
×
  • Nieuwe aanmaken...