Dim cd2 As ColorDrawable
cd2.Initialize2(Colors.white, 12dip, 1dip, Colors.Black)
txtFirstName.TextColor = Colors.Black
txtLastName.TextColor = Colors.Black
txtUserName.TextColor = Colors.Black
txtPin.TextColor = Colors.Black
txtDOB1.TextColor = Colors.Black
txtFeet.TextColor = Colors.Black
txtInches.TextColor = Colors.Black
txtFirstName.Background = cd2
txtLastName.Background = cd2
txtUserName.Background = cd2
txtPin.Background = cd2
txtDOB1.Background = cd2
txtFeet.Background = cd2
txtInches.Background = cd2