Sub GetEdit(tag As String, type As String, hint As String) As EditText
Dim edit As EditText : edit.initialize("")
edit .Tag = tag
edit.Wrap = True
edit.HintColor = Colors.Gray
edit.Hint = hint
edit.Gravity = Gravity.CENTER_VERTICAL
edit.TextColor = Colors.Black
edit.TextSize = 15
Select type
Case "NUM"
edit.InputType = edit.INPUT_TYPE_DECIMAL_NUMBERS
Case "TEXT"
edit.SingleLine = False
edit.InputType = edit.INPUT_TYPE_TEXT
End Select
Return edit
End Sub
Sub LoadLayout
Dim edit As EditText = GetEdit("comment", "TEXT", "Add comment")
panel.AddView( edit, 16dip, 0, 50%x, 56dip)
edit.SingleLine = False 'Set sigleLine to false after adding the view
End Sub