Android Question IME library error

Sub Activity_Create(FirstTime As Boolean)
   


    'Initialize the NavDrawer object. This modifies the internal Layout structure of your Activity
    'and adds the Navigationdrawer.
    'Attention: THIS HAS TO BE DONE BEFORE LOADING A LAYOUT TO THE ACTIVITY!
    NavDrawer.Initialize2("NavDrawer", Activity, NavDrawer.DefaultDrawerWidth, NavDrawer.GRAVITY_START)
    Activity.LoadLayout("frmMainAutista")

    creazione_action_bar_e_menu

    If FirstTime=True Then
        rsz.rszMAP.Initialize
        rsz.setta_scala(Activity)
        cnb.Initialize(Colors.LightGray,5)
        'spnAutomezzi.Background=cnb
        acspnAutomezzi.Background=cnb
        'spnAutomezzi.DropdownBackgroundColor=cnb
        'pgWheel1.Initialize("pgw")
        bg.Initialize(1000)
        timer_beacon.Initialize("timerBeacon",1000)
        timer_nota_vocale.Initialize("timer_nota_vocale",1000)
        timer_nota_vocaleODS.Initialize("timer_nota_vocaleODS",1000)
        avs.Initialize
        ods_attivo.Initialize
        man_str_attiva.Initialize
       
        imageFolder = Starter.rp.GetSafeDirDefaultExternal("")
        spmMANcatMap.Initialize
        lstViewMANelencoMAP.Initialize
        audioGest.Initialize("frmMainAutista","audioGest_esito")
        audioGestODS.Initialize("frmMainAutista","audioGestODS_esito")
       
        IME1.Initialize("IME1")
        IME1.AddHeightChangedEvent

    End If
   
    ridimensiona
   
End Sub

Sub InitializeNavDrawerAndIME
   ime.Initialize("ime")
   ime.AddHeightChangedEvent
   Dim e As Panel = Activity.Parent
   e.RemoveAllViews
   Dim p As Panel = e.Parent
   p.RemoveAllViews
   p.AddView(Activity, 0, 0, 100%x, 100%y)
   'Initialize the NavDrawer object. This modifies the internal Layout structure of your Activity
   'and adds the Navigationdrawer.
   'Attention: THIS HAS TO BE DONE BEFORE LOADING A LAYOUT TO THE ACTIVITY!
   NavDrawer.Initialize2("NavDrawer", Activity, NavDrawer.DefaultDrawerWidth, NavDrawer.GRAVITY_START)
   p = Activity.Parent
   Dim p2 As Panel = p.Parent
   p.RemoveView
   p2.AddView(e, 0, 0, 100%x, 100%y)
   e.AddView(p, 0, 0, 100%x, 100%y)
End Sub