Android Question Loop backgroundmusic without pause?

Sub Process_Globals
    Private MediaPlayers As List
End Sub

Sub Service_Create
    MediaPlayers = Array(CreateMediaPlayer, CreateMediaPlayer)
    Play
End Sub

Private Sub Play
    For Each mp As MediaPlayer In MediaPlayers
        mp.Load(File.DirAssets, "1.ogg")
    Next
    Dim index As Int
    Do While True
        Dim mp1 As MediaPlayer = MediaPlayers.Get(index Mod 2)
        Dim mp2 As MediaPlayer = MediaPlayers.Get((index + 1) Mod 2)
        index = index + 1
        mp1.Play
        mp2.Stop
        mp2.Load(File.DirAssets, "1.ogg")
        Sleep(29970)
        Log("complete")
    Loop
End Sub

Private Sub CreateMediaPlayer As MediaPlayer
    Dim mp As MediaPlayer
    mp.Initialize2("mp")
    Return mp
End Sub