文本显示问题？

用drawtext在一个矩形框里显示文本，矩形是图形，不是作为图层，怎么设置字体大小

能说具体点吗？

<P>Option Explicit
Dim sym As New MapObjects2.Symbol
Dim tsym As New MapObjects2.TextSymbol
Dim ln As MapObjects2.Line</P><P>Private Sub Form_Load()</P><P>With sym
.SymbolType = moLineSymbol
.Color = moRed
End With</P><P>End Sub</P><P>Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE)</P><P>If Not ln Is Nothing Then
  Map1.DrawShape ln, sym
  Map1.DrawText "Badda Bing", ln, tsym
End If</P><P>End Sub</P><P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</P><P>Set ln = Map1.TrackLine
Map1.Refresh</P><P>End Sub
</P>

<P>还是不懂</P>

当矩形变化时，字体的范围超出了矩形范围，我的意思是象photoshop里面似的，字体可变宽、变窄。