怎样定义字体？？？

路边

Sub sy()
    Dim TextObj As AcadText '定义文字对象变量
    Dim TextString As String '定义字符串变量
    Dim InsPnt(0 To 2) As Double '定义文字插入点数组变量
    Dim Height As Double '定义文字高度变量
    TextString = "试验"'

    '指定文字插入点位置和文字高度
    InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0
    Height = 15
   '在模型空间创建文字对象
    Set TextObj = ThisDrawing.ModelSpace.AddText(TextString, InsPnt, Height)
    TextObj.Color = acGreen '指定文字对象的颜色为绿色
    ZoomAll '缩放视图
    Unload Me '关闭窗体

我怎样定义"试验"'为宋体啊？？请帮忙！！

雪山飞狐_lzh

搜索一下吧,很多这样的帖子

路边

是么??

路边

给发一个贴吧!!谢谢!!!