dim lbltitle as label
lbltitle.Initialize("")
Activity.AddView(lbltitle,0,0,100%x,50dip)
lbltitle.Text = "Activity title"
lbltitle.TextColor = Colors.Black
lbltitle.Gravity = Gravity.CENTER_VERTICAL
lbltitle.TextSize = 20
Dim cd As ColorDrawable
cd.Initialize(Colors.Red,0)
lbltitle.Background = cd