VB-Helper：坚守脚本

领测软件测试网

      VsaItemType.AppGlobal, VsaItemFlag.None), _
      IVsaGlobalItem)
   global_item.TypeString = _
      "ScriptDrawObjects.Picture"
   Dim code_item As IVsaCodeItem = CType(items._
      CreateItem("Script", VsaItemType.Code, _
      VsaItemFlag.None), IVsaCodeItem)
   code_item.SourceText = script
   code_item.AddEventSource("MyPicture", _
      "ScriptDrawObjects.Picture")
   vsa_engine.Compile()
   If Not vsa_engine.IsCompiled() Then
      vsa_engine.Close()
      Exit Sub
   End If
   vsa_engine.Run()
   Dim vsa_assembly As [Assembly] = _
      vsa_engine.Assembly
   Dim my_type As Type = vsa_assembly.GetType_
      (vsa_engine.RootNamespace & ".Script")
   Dim method_info As MethodInfo = _
      my_type.GetMethod("Main")

文章来源于领测软件测试网 https://www.ltesting.net/