调用子程序时不能使用括号

Question

调用子程序时不能使用括号，如何改正呀？Dim A As New ScriptControl
Dim C As String
A.Language = "VBScript"A.AllowUI = True
Show
Print A.Eval(Text1)
C = "Sub GG()" & vbCrLf & _
    "P1.Line (20 , 200) -  (1000 , 200) , vbRed" & vbCrLf & _
     "End Sub"A.AddCode C
A.AddObject "P1", P1
 A.Run "GG"

Answer 1

估计是不能使用
P1.Line (20 , 200)-(1000 , 200) , vbRed

Answer 2

你改成
   C = "Sub GG()" & vbCrLf & _
       "Msgbox ""你好"",64,""提示""" & vbCrLf & _
       "End Sub"
这样应该不会有问题
因为vbScript中没有Line这种用法