Android Question [Solved] How to update widget (receiver) from the B4XPages app and open app from widget?

B4XPages.GetNativeParent(Me).Finish

Sub Process_Globals
    Private rv As RemoteViews
    Private imageFiles() As String = Array As String("player_button_next.png", "player_button_pause.png", _
        "player_button_play.png", "player_button_stop.png")
    Private currentImage As Int
   
    Private hgg As PhoneEvents
    Private BatLevel As Int
    Private Timer1 As Timer
End Sub

'Called when an intent is received.
'Do not assume that anything else, including the starter service, has run before this method.
Private Sub Receiver_Receive (FirstTime As Boolean, StartingIntent As Intent)
    Timer1.Initialize("Timer1", 1000)
    If FirstTime Then
        Log("Enter the first time and activate the Receiver")
        rv = ConfigureHomeWidget("L1", "rv", 60, "Hello Widget")
        hgg.Initialize("hgg")
        Sleep(200)
       
        Button1_Click

    End If
    Timer1.Enabled = True
    rv.HandleWidgetEvents(StartingIntent)
    Sleep(500)
    rv.UpdateWidget
   
    Timer1.Enabled = True
   
End Sub

Private Sub rv_RequestUpdate
    Log("rv_RequestUpdate: Message received by Receiver")
    ImageView1_Click
    SetTime
    rv.UpdateWidget
End Sub

Private Sub SetTime
    Log("SetTime: Update time")
    rv.SetText("Label1", DateTime.Time(DateTime.Now))
End Sub

Private Sub ImageView1_Click
    Log("ImageView1_Click: Update widget contents")
    currentImage = (currentImage + 1) Mod imageFiles.Length
    rv.SetImage("ImageView1", LoadBitmap(File.DirAssets, imageFiles(currentImage)))
    'rv.SetProgress("ProgressBar1", 100 * (currentImage + 1) / imageFiles.Length)
    rv.SetProgress("ProgressBar1", BatLevel)
    rv.SetText("Label2", BatLevel & "%")
    SetTime
    rv.UpdateWidget
End Sub

Private Sub Button1_Click
    Log("WidgetReceiver --> Button1_Click: Opens Activity Main")
    StartActivity(Main)
End Sub

Sub Timer1_Tick
    ' event Timer1
    Log("Timer1: event")
    Timer1.Enabled = False
    'ImageView1_Click
    rv.SetProgress("ProgressBar1", BatLevel)
    rv.SetText("Label2", BatLevel & "%")
    SetTime

    rv.UpdateWidget
    Timer1.Enabled = True
End Sub

Public Sub hgg_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
    ' Get Battery level
    BatLevel = Level
End Sub

#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=HomeWidgets.zip

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Public bat_lvl As B4XView
    Public BatteryCharging As Boolean
    
    Private hg As PhoneEvents
    Private bntClose As Button
    Private btnFinish As B4XView
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    hg.Initialize("hg")   
    xui.MsgboxAsync("Go to the home screen and add the <Hello Widget>.", "")
End Sub

Public Sub Button1_Click
    Log("B4XMainPAge: Button1_Click")
    xui.MsgboxAsync("Update Widget. " & DateTime.Time(DateTime.Now), "")
    CallSubDelayed(WidgetReceiver, "ImageView1_Click")
End Sub

Sub bntClose_Click
    '' Close App
    Dim jo As JavaObject
    jo.InitializeContext
    jo.RunMethod("finishAndRemoveTask", Null)
End Sub

Sub btnFinish_Click
    ' finish activity B4XPages
    B4XPages.GetNativeParent(Me).Finish
End Sub

Public Sub hg_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
    bat_lvl.Text = Level
    ' & " %"    ' legge livello batteria dagli eventi del telefono
    BatteryCharging = Plugged
    Log("Level: " & Level & "%, Scale: " & Scale & ", Plugged: " & Plugged)
End Sub