تغییر اندازه متن متناسب با اندازه لیبل

[مسعود دلفان آذری 52]

سلام دوستان

من ده تا لیبل دارم و در داخل هر لیبل چند کلمه نوشته شده، من میخوام اندازه متن درون لیبل ها با اندازه لیبل متناسب شه (نمیخوام اندازه لیبل تغییر کنه و تنها متن اندازش عوض شه) و متن از لیبل بیرون نزنه و متن درست در وسط لیبل قرار بگیره!

لطفا راهنمایی فرمایید

[مسعود دلفان آذری 52]

[مسعود دلفان آذری 52]

دوستان روششو پیدا کردم، تشکر

Sub SetLabelTextSize(lbl As Label, txt As String, MaxFontSize As Float, MinFontSize As Float)
	Dim FontSize = MaxFontSize As Float
	Dim Height As Int
	Dim stu As StringUtils
    
	lbl.TextSize = FontSize
	Height = stu.MeasureMultilineTextHeight(lbl, txt)
	Do While Height > lbl.Height And FontSize > MinFontSize
		FontSize = FontSize - 1
		lbl.TextSize = FontSize
		Height = stu.MeasureMultilineTextHeight(lbl, txt)
	Loop
End Sub