Sub VR_Result (Success As Boolean, Texts As List)
If Success = True Then
lbl2.Text = Texts.Get(0)
If File.Exists(File.DirAssets, lbl2.Text & ".wav") = True Then
MP.Initialize
MP.Load(File.DirAssets,lbl2.Text & ".wav")
MP.Play
Else
Msgbox("FRASE NON PRESENTE NEL DATABASE","AVVISO !!")
End If
End If
End Sub