Dim ColActive As ColorDrawable
Dim ColInactive As ColorDrawable
ColActive.Initialize(Colors.black, 10dip)
ColInactive.Initialize(Colors.LightGray, 10dip)
Label1.textcolor=ColActive
Label2.textcolor=ColInactive
Label3.textcolor=ColInactive
.....
Label99.textcolor=ColInactive
Label100.textcolor=ColActive