iOS Question Share Code iPad running iOS 13.4.1 not responsive

Sub ShareApp(appid As String,ShareStr As String)
    Dim avc As ActivityViewController
    Dim AppShare,ShareText As String
    AppShare="https://apps.apple.com/us/app/id" & appid
    ShareText=ShareStr & CRLF & AppShare
    avc.Initialize("avc", Array(ShareText, LoadBitmap(File.DirAssets,"appicon.png")))
    avc.Show(Page1,Page1.RootPanel)
End Sub