Sub Activity_Create(FirstTime As Boolean)
Dim ph As Phone
Dim BD As BitmapDrawable
Activity.LoadLayout("Main")
ph.SetScreenOrientation (1)
If FirstTime=True Then
resetTimer.Initialize("resetTimer", 1000)
Splash
MP.Initialize("MP")
MP.Load("rtsp://000.000.00.0:1935/nuevosxxxx/nuevoxxxx")
StartService(Service1)
ESTADO="STOP"
Else
StopService(Service1)
StartService(Service1)
End If
UpdateStatus
BD = ph.GetResourceDrawable(17301578)
Activity.AddMenuItem2 ("Twitter","Twitter", BD.Bitmap)
'
BD = ph.GetResourceDrawable(17301569)
Activity.AddMenuItem2 ("Acerca de..","About", BD.Bitmap)
'
BD = ph.GetResourceDrawable(17301580)
Activity.AddMenuItem2("Salir","salir", BD.Bitmap) '
End Sub