Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("frmchatroom")
lblStatusbar.Text="Test"
lblStatusbar.Background=phone1.GetResourceDrawable(17301653)
ime1.Initialize("ime1")
ime1.AddHeightChangedEvent
End Sub
Sub IME1_HeightChanged (NewHeight As Int, OldHeight As Int)
Log(NewHeight & ", " & OldHeight)
If NewHeight < OldHeight And OldHeight - NewHeight < 50dip Then
Activity.Finish
StartActivity(Me)
End If
End Sub