vb.net scriptcontrol

[weixin_38058190]

Public Sub aa()
MsgBox("执行它")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ScriptControl As New MSScriptControl.ScriptControl
ScriptControl.Language = "VBScript"
ScriptControl.AddObject("me", Me)
ScriptControl.AddCode("me.aa()")
End Sub

请问这段代码在vb.net里为什么会弹错？

[weixin_38075050]

非常感谢，测试通过，谢谢

[weixin_38066403]

Hi,
添加代码ComVisible(True)，修改代码：
Imports System.Runtime.InteropServices <ComVisible(True)> Public Class Form1 Public Sub aa() MsgBox("执行它") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ScriptControl As New MSScriptControl.ScriptControl ScriptControl.Language = "VBScript" Dim f1 As New Form1 ScriptControl.AddObject("f1", f1) ScriptControl.AddCode("f1.aa()") End Sub End Class

[weixin_38098679]

Hi,
如果问题已经解决，请将正确答案mark，谢谢。