，自定义控件

求助，自定义控件
我想做一个类似于LABEL的控件，但是有撑满的效果，比如你一个LABEL最多可以打10个字，现在要在有限的长度内，打20个字甚至更多，每个字都会挤压，全部显示在有限的空间里，请问该怎么做

[解决办法]
就像EXCEL单元格里自动缩小字体一样？
[解决办法]
把label自己包装下,或者直接在usercontrol里面print不就成了,比如
Option Explicit
'事件声明:
Event Click() 'MappingInfo=UserControl,UserControl,-1,Click

Public Sub mprint()
Dim x
x = Time
With UserControl
Dim y
.Cls
y = .TextWidth(x)
If y > 100 Then
.Font.Size = .Font.Size - 1
End If
UserControl.Print x
End With
End Sub

Private Sub UserControl_Click()
RaiseEvent Click
End Sub

点击usercontrol就会缩小打印的时间...