Android Question smoothly ncrease and decrease a sound volume

Sub Button1_Click
    mp.Load(File.DirAssets, "1.mp3")
    mp.SetVolume(0, 0)
    mp.Play
    For i = 1 To 10
        mp.SetVolume(i / 10, i / 10)
        Sleep(100)
    Next
End Sub

Sub Button_play_Click
    
    Dim v As Float
    Dim i As Float
    
    MP.Load(File.DirAssets, "jingle.mp3")
    Timer_track.Enabled = True
    Seekbar_track.Value = 0
    MP.Play
    
    v = Seekbar_volume.Value / 100
    
    For i = 0 To v*10 Step 0.1
        MP.SetVolume(i, i)
        Sleep(10)
    Next
    
End Sub

/CODE]