Visual Basic 6 - visual basic

ciao a tutti io ho fatto un gioco con la pallina e i mattoni volevo un aiuto ho messo una canzone all'apertura ma appena finisce la canzone non riparte più, vorrei ripetere l canzone fino a quando non tolgo il gioco cioè la canzone si deve sempre ripetere...mi potete aiutare???

Posta il codice così ci si può dare un'occhiata

EDIT: ti dovresti prima presentare nell'apposita sezione comunque!!!

Private Sub Form_Open(Cancel As Integer)
Dim PerMad As String

PerMad = Mid(CurrentDb.Name, 1, LastInStr(CurrentDb.Name, "\")

Me.Suono.URL = PerMad & "NY.mp3"
SuonoA = PerMad & "A.wav"
SuonoB = PerMad & "b.wav"
SuonoC = PerMad & "c.wav"
SuonoD = PerMad & "d.wav"
SuonoE = PerMad & "e.wav"
Resetta 1

End Sub

Il suono "NY.mp3" è la canzone che ho inserito io, va bene, appena apro la maschera parte, però, appena finisce non riparte e non riesco a trovare un comando per farla ripartire, mi puoi dare un aiuto??

ho ritrovato questa piccola funzioncina

Private Declare Function sndPlaySound& Lib "winmm.dll" Alias _
    "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
 Const SND_SYNC = &H0
 Const SND_ASYNC = &H1
 Const SND_NODEFAULT = &H2
 Const SND_LOOP = &H8
 Const SND_NOSTOP = &H10

Private Sub Form_Load()
sndPlaySound "Percorso_file", SND_ASYNC Or SND_NODEFAULT Or SND_LOOP
End Sub