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]