Android Question how to set automatic widget android in home screen

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