Private Sub Button1_Click
Dim ComponentName As JavaObject
ComponentName.InitializeNewInstance("android.content.ComponentName", Array(Application.PackageName, "widgetreceiver"))
Log(ComponentName)
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim AppWidgetManager As JavaObject
AppWidgetManager = AppWidgetManager.InitializeStatic("android.appwidget.AppWidgetManager").RunMethod("getInstance", Array(ctxt))
Log(AppWidgetManager.RunMethod("isRequestPinAppWidgetSupported", Null))
Log(AppWidgetManager.RunMethod("requestPinAppWidget", Array(ComponentName, Null, Null)))
End Sub