I have done that but still some issues with pressed. See below:
Dim btnThemeBlue,btnThemeWhite,btnThemeWhiteClicked As ColorDrawable
Dim sldBlue,sldWhite As StateListDrawable
sldBlue.Initialize
sldWhite.Initialize
btnThemeBlue.Initialize2(Colors.RGB (23, 126, 251),5dip,1dip,Colors.RGB (23, 126, 251))
btnThemeWhite.Initialize2(Colors.White,5dip,1dip,Colors.RGB (23, 126, 251))
btnThemeWhiteClicked.Initialize2(Colors.RGB (169, 169, 169),5dip,1dip,Colors.RGB (23, 126, 251))
sldBlue.AddState (sldBlue.State_Enabled,btnThemeBlue)
sldBlue.AddState (sldBlue.State_Pressed ,btnThemeWhiteClicked)
sldWhite.AddState (sldWhite.State_Enabled,btnThemeWhite)
sldWhite.AddState (sldWhite.State_Pressed ,btnThemeWhiteClicked)
btnTest.Background = sldWhite