Sub Activity_Create(FirstTime As Boolean)
    Dim jo As JavaObject
    Dim window As JavaObject = jo.InitializeContext.RunMethod("getWindow", Null)
    window.RunMethod("addFlags", Array(Bit.Or(0x00000200, 0x08000000)))
    Activity.Height = Activity.Height + 80dip
    Dim pm As B4XPagesManager
    pm.Initialize(Activity)
    IME.Initialize("IME")
    IME.AddHeightChangedEvent
    CorrectHeight = 100%y
    Wait For IME_HeightChanged (NewHeight As Int, OldHeight As Int)
    CorrectHeight = NewHeight
    HeightChangedFired = True
End Sub
Sub IME_HeightChanged (NewHeight As Int, OldHeight As Int)
    Log("IME_HeightChanged")
    B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "IME_HeightChanged", Array(NewHeight, OldHeight))
End Sub