绘图中的问题

'直线绘制方法(AddLine)代码
Dim Lineobj As AcadLine
Dim startpoint(0 To 2) As Double, endpoint(0 To 2) As Double
startpoint(0) = x0#: startpoint(1) = y0#: startpoint(2) = z0#
endpoint(0) = x0#: endpoint(1) = y0#: endpoint(2) = z0#
Set Lineobj=acadapp.ActiveDoument.ModelSpace.
-AddLine(startpoint,endpoint)'圆弧绘制方法(AddArc)代码
Dim Arcobj As AcadArc
Dim Center(0 To 2) As Double, radius As Double
Dim StartAngle As Double, EndAngle As Double
Center(0) = x0#: Center(1) = y0#: Center(2) = z0#
radius = RO
Set Arcobj=acadapp.ActiveDoument.ModelSpace.-
AddCircle(Center,radius,StartAngle,EndAngle)

'创建长度尺标注对象
RetVal=acadapp.ActiveDoument.ModelSpace.-
AddDimAligned(ExtLinelPoint, ExtLine2Point, TextPosition)'创建角度标注对象
RetVal= acadapp.ActiveDoument.ModelSpace.-
AddDimAngular(Anglevertex,standpointint,SecondEndPoint,TextPoint)
 ' 创建半径尺标注对象用(AddDimRadial)方法
RetVal= acadapp.ActiveDoument.ModelSpace.-
AddDimRadial(Center,ChordPoint,LeaderLength)
'创建直径型标注对象
RetVal= acadapp.ActiveDoument.ModelSpace.-
AddDimDiametric(ChordPoint,FarChordPoint,LeaderLength)
上面的代码是在别人论文中找的，为什么在VB里面会显示成红色，这该怎么改才能实现那些功能？