Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private EditText1 As EditText
Private EditText2 As EditText
Private EditText3 As EditText
Private EditText4 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
Dim checked, unchecked As ColorDrawable
checked.Initialize(Colors.Green, 10dip)
'unchecked.Initialize(Colors.Red, 10dip)
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Focused, checked)
EditText1.Background = sld
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Focused, checked)
EditText2.Background = sld
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Focused, checked)
EditText3.Background = sld
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Focused, checked)
EditText4.Background = sld
End Sub