Bingo op Excel 64 bit

[Andrevb1942]

Ik gebruikte Bingo.zip lang geleden ,  maar nu die werkt die niet meer op 64 bit, office 2019 .

Kan iemand daarmee helpen ?

http://users.telenet.be/andrevb/Bingo.zip

[bakerman]

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.

[Andrevb1942]

het werkt,   Bedankt voor deze aanpassing. 😀😀