Android Question Place a phone call and conserve focus on calling view.

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    StartService(servizio)
End Sub

Sub Activity_Resume
    servizio.ridotto=False
End Sub
Sub button1_Click
    StopService(servizio)
    Activity.Finish
End Sub
Sub Activity_Pause (UserClosed As Boolean)
  servizio.ridotto=True
End Sub

#Region  Service Attributes
    #StartAtBoot: False
#End Region

Sub Process_Globals
    Dim ridotto As Boolean 'flag active when Activity screen is hidden
    Dim timw As Timer
End Sub
Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
    timw.Initialize("TIM",100)
    timw.Enabled=True
End Sub
Sub TIM_Tick
    If ridotto=True Then StartActivity(Main)
End Sub

Sub Service_Destroy
    timw.Enabled=False
End Sub

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#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 ph As PhoneCalls

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim edittext1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    StartService(servizio)
End Sub

Sub Activity_Resume
    servizio.ridotto=False
End Sub
Sub button1_Click
    StopService(servizio)
    Activity.Finish
End Sub
Sub button2_Click
  servizio.timw.Interval=2000
  ToastMessageShow("Chiama",True)
  Dim num As String=edittext1.Text
  StartActivity(ph.Call(num))
 

End Sub
Sub Activity_Pause (UserClosed As Boolean)
  servizio.ridotto=True
End Sub

#Region  Service Attributes
    #StartAtBoot: False
#End Region

Sub Process_Globals
    Dim ridotto As Boolean 'flag active when Activity screen is hidden
    Dim timw As Timer
End Sub
Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
    timw.Initialize("TIM",100)
    timw.Enabled=True
End Sub
Sub TIM_Tick
    If ridotto=True Then StartActivity(Main)
    timw.Interval=100
End Sub

Sub Service_Destroy
    timw.Enabled=False
End Sub