Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
copymenu.AddTextItem("Copy", "Copy")
copymenu.AsView.Visible = False
IME.Initialize("IME")
IME.AddHeightChangedEvent
IME_HeightChanged(100%y, 0)
IME.AddHandleActionEvent(EditText1)
End Sub
Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
Panel1.Top = NewHeight - Panel1.Height
Panel2.Height = Panel1.Top - Panel2.Top
CustomListView1.AsView.Height = Panel2.Height
End Sub