在VB.net中使用MSscriptControl添加对象给出指定的强制转换是无效的错误

Question

下面是产生错误的示例代码。我过去在VB项目中使用过MSscript，这些项目都能正常运行。

报告的错误是:"当从一个数字转换时，值必须是小于无穷大的数字">

或者如果有人有其他建议的方法可以轻松地将脚本添加到项目中。

    Private Sub Run_Script()
        Dim scriptEngine As New MSScriptControl.ScriptControl()
        Dim TestClass As New Sample
        Dim ScriptCode As String
        scriptEngine.Language = "VbScript"
        scriptEngine.AddObject("Test", TestClass, True)
        ScriptCode = "MsgBox ""tests"" "
        scriptEngine.AddCode(ScriptCode)
    End Sub
End Class
Public Class Sample
    Public Sub Test()
        MessageBox.Show("This is a test")
    End Sub
End Class

Answer 1

我找到了答案。我需要将com可见设置为true。这是在"汇编信息">

下找到的。