Sub Button1_Click
Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("audio/*", "Choose audio file")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Wait For (File.CopyAsync(Dir, FileName, File.DirInternal, "temp")) Complete (Success As Boolean)
If Success Then
mp.Stop
mp.Load(File.DirInternal, "temp")
mp.Play
End If
End If
End Sub