Public Sub checkFields(fields() As EditText) As Boolean
Private xl As XmlLayoutBuilder
For Each field As EditText In fields
If field.Text = "" Then
field.Background = xl.GetDrawable("edittexterror")
Return False
End If
Next
Return True
End Sub
'edittexterror.xml
<shape xmlns:android="http://schemas.android.com/apk/res/android"
android:shape="rectangle">
<corners android:radius="0dp" />
<stroke android:width="1dip" android:color="#FF0000" />
</shape>