تغيير سايز فونت تكست باكس متناسب با اندازه (عرض) تكست باكس

[abas1388]

سلام
فرض كنيد يك تكست باكس با طول و عرض ثابتي داريم ، حال اگر اندازه فونت نوشته اين تكست باكس تغيير كرد و در واقع بزرگتر از اندازه تكست باكس شد خود بخود سايز فونت متناسب با اندازه تكست باكس كوچك شود.
به چه كدي اين كار را ميتوان انجام داد ؟
با تشكر

[vbhamed]

سلام
يك دكمه نمايان و يك PictureBox مخفي روي فرم بزاريد

Private Sub Command1_Click()

Dim newfontsize!

newfontsize = 60

Set Picture1.Font = Text1.Font
Picture1.Font.Size = newfontsize

While Picture1.TextHeight("A") > Text1.Height
newfontsize = newfontsize - 0.5
Picture1.Font.Size = newfontsize
Wend

Text1.Font.Size = newfontsize
MsgBox Text1.Font.Size

End Sub