Vlbl.Font=Font.CreateNew2("Digital-7",CheckSize(Vlbl))
Sub CheckSize(lbl As Label) As Int
Private Checllbl As Label
Checllbl.Initialize("")
Checllbl.Visible=False
Checllbl.RemoveViewFromParent
SPage1.RootPanel.AddView(Checllbl,0,0,lbl.Width,lbl.Height)
Checllbl.Text="00000000"
Private Fsize As Int
Fsize=20
Checllbl.Font=Font.CreateNew2("Digital-7",Fsize)
Checllbl.SizeToFit
Do Until (Checllbl.Width >= lbl.Width) Or (Checllbl.Height >= lbl.Height)
Fsize=Fsize+5
Checllbl.Font=Font.CreateNew2("Digital-7",Fsize)
Checllbl.SizeToFit
Loop
Checllbl.RemoveViewFromParent
Return Fsize
End Sub