Dim stw As StateListDrawable
Dim cdw3, cdw4, cdw5 As ColorDrawable
cdw3.Initialize(Colors.White, 5dip)
cdw4.Initialize(Colors.Gray, 5dip)
cdw5.Initialize(Colors.RGB(255, 204, 204), 5dip)
stw.Initialize
stw.AddState(stw.State_Focused, cdw5)
stw.AddState(stw.State_Disabled, cdw4)
stw.AddState(stw.State_Enabled, cdw3)
edtTest3.Background = stw