Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
If NewHeight < OldHeight Then ' if keyboard appeared
' btnHide.Visible = True
ToastMessageShow("show", False)
btnHide.SetLayoutAnimated(500, 0, btnHide.Top, btnHide.Width,btnHide.Height) ' left to right: show
Else ' keyboard disappeared
' btnHide.Visible = False
ToastMessageShow("hide", False)
btnHide.SetLayoutAnimated(500, 0-btnHide.Width, btnHide.Top, btnHide.Width,btnHide.Height) ' right to left: hide
End If
End Sub