'Try this code
Dim Lbl1 As Label
Lbl1.Initialize("")
Activity.AddView(Lbl1, 0dip, 0dip, 100dip, 100dip)
Dim Lbl1Radius As ColorDrawable
Lbl1Radius.Initialize2(Colors.Yellow, 50, 2dip, Colors.Black)
Lbl1.Background = Lbl1Radius
Dim CS As CSBuilder
CS.Initialize.Color(Colors.DarkGray).VerticalAlign(20dip).Alignment("ALIGN_CENTER").Bold.Size(40).Append("1").PopAll
Lbl1.Text = CS