vb通过scriptcontrol调用VBScript相互传递参数

VBScript代码

dim mm,Resultmm = 1mm = dataif mm = 1 then    MsgBox "1"elseif mm = 2 then    MsgBox "2"else    MsgBox "other"endtfResult= 123

VB代码

Private Sub cmdExecute_Click()    Dim data As Integer    data = 2    Dim code As String    code = "dim data " & vbCrLf & "data = " & data    Set vbs = CreateObject("MSScriptControl.ScriptControl")     vbs.Language = "VBScript"     vbs.AddCode code     vbs.ExecuteStatement (txtCode.Text)     Dim i As Integer     i = vbs.CodeObject.Result 'vbs返回值     MsgBox "返回值Result：" & iEnd Sub