字数显示问题，请大侠们帮忙。。多谢！

heaky

在一个窗体里有一个项目，如果输入字数不超过10个就用3号字显示。如果超过10个就换成两行用4号字显示，请问如何控制呢？请各位大侠们指救。。。。。。。。

aban

窗体中的文本框名称为Text1。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Text1.Text) < 9 Then
Text1.FontSize = 3
Else
Text1.FontSize = 4
End If