Sub JobDone(Job As String)
Select Job
Case "Job1"
'Dim p As Phone
'Dim sb As StringBuilder
'sb.Initialize
'p.Shell("df", Null, sb, Null)
'Msgbox(sb.ToString, "Free space:")
If HttpUtils.IsSuccess(mp3Url) Then
Dim mp3 As InputStream
mp3 = HttpUtils.GetInputStream(mp3Url)
Dim out As OutputStream
out = File.OpenOutput(File.DirInternal,"077.mp3",False)
File.Copy2(mp3, out)
out.Close
ProgressBarDownloading.Visible = False
ToggleButtonPlayPause.Checked = True
ToggleButtonPlayPause.Enabled = True
blnCurrentPauseCheckedState = True
blnCurrentPauseEnabledState = True
mpTheMediaPlayer.Release
mpTheMediaPlayer.Initialize2("SurahAlMosalat")
mpTheMediaPlayer.Load(File.DirInternal, "077.mp3")
mpTheMediaPlayer.Play
End If
End Select