#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 Widg As RemoteViews
End Sub
Sub Service_Create
Widg = ConfigureHomeWidget("widget", "Widg", 0 , "Insert",True)
End Sub
Sub Service_Start (StartingIntent As Intent)
If Widg.HandleWidgetEvents(StartingIntent) Then Return
'Widg.SetImage("ButtonOk",LoadBitmap(File.DirAssets,"add.png"))
End Sub
Sub Service_Destroy
End Sub
Sub Widg_RequestUpdate
Widg.UpdateWidget
End Sub
Sub Widg_Disabled
StopService("")
End Sub
Sub ButtonOk_Click
StartActivity("insert")
End Sub