Option Explicit
Private Const SND_APPLICATION = &H80
Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal _
  lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
 
Dim Zeit As Date
 
Zeit = DateAdd("s", Zufallszahl(0, 10), Now)
 
Do While Now <> Zeit
Sleep 1000
Loop
 
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
 
End Sub
 
 
    Function Zufallszahl(ByVal min, ByVal max) As Integer
    Dim z As Double
        z = Rnd            'Zufallszahl (liegt zwischen 0 und 10)
        Zufallszahl = Int(min + (max - min + 1) * z)
    End Function

EALA FREYA FRESENA