Sub Process_Globals
Dim rv As RemoteViews
Dim strWidgetName As String
End Sub
Sub Service_Create
Dim Panel1 As Panel
Panel1.Initialize("p1")
Dim btn1 As Label
btn1.Initialize("btn1")
btn1.BringToFront
btn1.Text = "This is a label"
Panel1.addview(btn1,5,5,100,50)
'Panel 1 is the widget in the designer
rv = ConfigureHomeWidget("Widget", "rv", 0, "Widget")
End Sub
Sub Service_Start (StartingIntent As Intent)
If rv.HandleWidgetEvents(StartingIntent) Then Return
End Sub