VBAScript 向drafting添加文本框，如何更改文本框名称及字体颜色？ ... ...

用VBAScrip向drafting添加文本框，如何更改文本框名称及字体颜色？
添加文本代码如下。

Language="VBSCRIPT"
Sub CATMain()

Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets   = DrwDocument.Sheets
Set Selection   = DrwDocument.Selection
Set DrwSheet    = DrwSheets.ActiveSheet

Dim x as Real
Dim y as Real

x = 205
x = DrwSheet.GetPaperWidth - x
y = 7.5

Dim oDoc As DrawingDocument
Dim oBackGround As DrawingView
Dim oText As DrawingText

Set oDoc = CATIA.ActiveDocument
Set oBackGround = oDoc.Sheets.ActiveSheet.Views.Item(2)
Set oText = oBackGround.Texts.Add(“Test", x, y)
oText.AnchorPosition = catBottomRight
oText.SetFontSize 0,0,7
oText.SetFontName 0,0, "SSS4"

End Sub

我找到了，下面的语法结构是Catia帮助文件中的，可我调试不过，错误见附图。
redCol  =-16776961 'Encoded RGBA color within long integer (R=255 G=0   B=0   A=255)
MyText.Color = redCol



下面是我的代码：
Sub CATMain()

Dim oDoc As DrawingDocument
Dim oBackGround As DrawingView
Dim oText As DrawingText

Set oDoc = CATIA.ActiveDocument
Set oBackGround = oDoc.Sheets.ActiveSheet.Views.Item(2)
Set oText = oBackGround.Texts.Add(FormatDatetime(Date,1), 0, 0)
oText.SetFontSize 0,0,5
oText.SetFontName 0,0, "SSS4"
redCol  =-16776961 'Encoded RGBA color within long integer (R=255 G=0   B=0   A=255)
oText.Color = redCol

End Sub