Android Question Resumable sub

Sub ClvLanguage_ItemClick (Position As Int, CodeLang As Object)◄
    Dim xui As XUI
    Dim mess As String = Tools2.GetLocalStrings("yousure")
    Dim title As String = ""
    Dim msgboxoui As String = Tools2.GetLocalStrings("msgboxoui")
    Dim msgboxno As String = Tools2.GetLocalStrings("msgboxno")
    Dim msgboxcancel As String = Tools2.GetLocalStrings("msgboxcancel")
    Dim sf As Object = xui.Msgbox2Async(mess, title, msgboxoui, msgboxcancel, msgboxno, Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Langue = CodeLang
        ToolsForms.ChangLangUser(Langue)
        Tools.LS_Init
        ClvLanguage.Clear
        Tools.Param_Init(PanelParam, ClvLanguage)
        Tools.Top_Init(PanelTop)
        Tools.Menu_Init(PanelMenu)
        Tools.Logo_Init(PanelLogo)
        Tools.User_Init(PanelUser)
    End If
End Sub