文本注记的代码错误。不知道错在那里：（

<P>Public Sub CharacterM()</P>
<P>Dim pactiveview As IActiveView
Dim pgeometry As IGeometry</P>

<P>Set pgeometry = m_pCachePoint（为一个点）</P>
<P>If m_pmap Is Nothing Then Exit Sub
Set pactiveview = m_pmap</P>
<P>Dim pCharacterMS As ICharacterMarkerSymbol
Set pCharacterMS = New CharacterMarkerSymbol</P>
<P>Dim pfont As IFontDisp
Set pfont = New StdFont</P>
<P>Dim pcolor As IRgbColor
Set pcolor = New RgbColor</P>
<P>pcolor.Red = 255
pcolor.Green = 0
pcolor.Blue = 0</P>
<P>pfont.Name = "ESRI Default Marker"</P>
<P>pfont.Size = 24</P>
<P>With pCharacterMS
     .Angle = 90
     .CharacterIndex = 1000
     .Color = pcolor
     .Font = pfont
     .Size = 24
     .XOffset = 0
     .YOffset = 0
 End With
Dim s As String
s = "ss"
pactiveview.ScreenDisplay.StartDrawing pactiveview.ScreenDisplay.hdc, -1
    pactiveview.ScreenDisplay.SetSymbol pCharacterMS</P>

<P>    运行到这一句出现自动化错误，那位高手指导以下
    pactiveview.ScreenDisplay.DrawText pgeometry, s
pactiveview.ScreenDisplay.FinishDrawing</P>
<P>
End Sub</P>