sound file in service module

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   Dim hc As HttpClient
   Dim req As HttpRequest
   dim p as phone
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   
   Dim timer1 As Timer   
   Dim lblmessage As Label
   Dim txtmessagerx As EditText
   Dim mp As MediaPlayer
      
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   
   Activity.LoadLayout("message")
   p.SetScreenOrientation(1)
   mp.Initialize
   hc.Initialize("hc")
   timer1.Initialize("timer1",4000)
   timer1.Enabled=True
   req.InitializeGet("http://www.siciliabit.com/prova/messaggio.txt") 
   hc.Execute(req, 1)
      
End Sub

Sub timer1_Tick
   hc.Execute(req, 1)
End Sub


Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)
   txtmessagerx.Text = Response.GetString("UTF8")
   lblmessage.Text=txtmessagerx.Text
      
End Sub
Sub Activity_Resume
      
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   StartService(hide)
   
End Sub

#Region  Service Attributes 
   #StartAtBoot: False
#End Region

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   
   Dim hc As HttpClient
   Dim req As HttpRequest
   Dim timer1 As Timer
   Dim mp As MediaPlayer
   
End Sub
Sub Service_Create
   hc.Initialize("hc")
   req.InitializeGet("http://www.siciliabit.com/prova/messaggio.txt") 
   timer1.Initialize("timer1",4000)
   
   timer1.Enabled=True
End Sub

Sub Service_Start (StartingIntent As Intent)
   timer1.Enabled=True
   hc.Execute(req, 1)
   
   StartServiceAt("", DateTime.Now + 0.1 * DateTime.TicksPerMinute, False)
   
End Sub
Sub timer1_Tick
   hc.Execute(req, 1)
End Sub
Sub Service_Destroy

End Sub
Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)
   ?????????????????????????   
End Sub