Sub btnMic_Click
Dim a As Button
If ServiceGPS.AppOn = True Then
a=StandOut.RequestViewByTag("btnMic")
a.SetBackgroundImage(LoadBitmap(File.DirAssets,"off.png"))
ServiceGPS.AppOn = False
Else
a=StandOut.RequestViewByTag("btnMic")
a.SetBackgroundImage(LoadBitmap(File.DirAssets,"on.png"))
ServiceGPS.AppOn=True
End If
End Sub