Sub Globals
Dim EditText1 As EditText
EditText1.Initialize("EditText1")
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.AddView(EdtText1, 0dip, 0dip, 300dip, 300dip)
EditText1.SingleLine = False
EditText1.ForceDoneButton = True
End Sub