Sub Globals
Dim et As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
et.Initialize("")
et.SingleLine = False
et.Typeface = Typeface.MONOSPACE
et.Gravity = Bit.Or(Gravity.TOP , Gravity.LEFT)
Activity.AddView(et, 10dip, 10dip, 250dip, 140dip)
Dim r As Reflector
r.Target = et
r.RunMethod2("setImeOptions", 0x10000000, "java.lang.int")
End Sub