Dim suono As String
suono = avvio.cartella & "boing.wav" 'avvio.cartella = directory di default
With Music
.Load(suono)
.Play()
End With
Do
Sleep 0.01
Loop Until Music.State = Music.Stopped
...questo codice sul clic di un pulsante...V'è da precisare che, poiché l'esempio da te riportato fa riferimento ad un codice che usa il componente gb.sdl.sound ed è posto in un ambiente grafico, l'esecuzione del file audio (o anche Midi) non necessita del ciclo:Citazione........
Do
Sleep 0.01
Loop Until Music.State = Music.Stopped
Do
Sleep 0.01
Loop Until Music.State = Music.Stopped...quello che di solito si faceva un tempo col beep dell'altoparlante interno.Colgo l'occasione di questo tuo riferimento per segnalare questa pagina della nostra WIKI per un'eventuale soluzione priva di file audio aggiuntivi: