文本标注使用Font只能改变字体，怎么回事捏？

<P>文本标注使用Font只能改变字体，却不能改变大小等状态，</P>
<P>怎么回事捏？同志们帮帮忙！</P><img src="images/post/smile/dvbbs/em02.gif" />

<P>可以啊，看下面这个</P>
<P>Option Explicit<BR>Dim oTextsymbol As New MapObjects2.TextSymbol</P>
<P>Private Sub Command1_Click()<BR>  Dim oFont As New StdFont<BR>  With CommonDialog1<BR>    .Flags = cdlCFBoth Or cdlCFEffects<BR>    .ShowFont<BR>    oFont.name = .FontName<BR>    oFont.Size = .FontSize<BR>    oFont.Bold = .FontBold<BR>    oFont.Italic = .FontItalic<BR>    oFont.Strikethrough = .FontStrikethru<BR>    oFont.Underline = .FontUnderline<BR>  End With</P>
<P>  Set oTextsymbol.Font = oFont ' set the TextSymbol object's font</P>
<P>  oTextsymbol.Color = CommonDialog1.Color<BR>  Map1.TrackingLayer.Refresh True<BR>End Sub</P>
<P>Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As Stdole.OLE_HANDLE)<BR>  Static bTextDrawn As Boolean<BR>  <BR>  If bTextDrawn Then<BR>     Map1.DrawText "MapObjects2", Map1.Extent.Center, oTextsymbol<BR>  End If<BR>  bTextDrawn = True<BR>End Sub<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em04.gif"></P>

有些类型的专题图是这样的，这是MO自身的问题！

<P>不行啊！粗体和下划线都出不来呀！</P>
<P>怎么办？</P>

<H1>CharacterIndex</H1>
<H1>在帮助里看看这个例子</H1>