If TestNo = 1 Then
lblTestText(i).TextColor = Colors.Black
lblTestText(i).Typeface = Typeface.CreateNew(Typeface.SERIF, Typeface.STYLE_NORMAL)
Else
lblTestText(i).TextColor = Colors.ARGB(255,0,128, 128)
lblTestText(i).Typeface = Typeface.CreateNew(Typeface.SANS_SERIF, Typeface.STYLE_NORMAL)
End If
lblTestText(i).Height = LabelHeight
lblTestText(i).TextSize = FontSize
lblTestText(i).Width = Canvas1.MeasureStringWidth(lblTestText(i).Text, lblTestText(i).Typeface, FontSize)
lblTestText(i).Color = Colors.LightGray