提示,从工程部件中加载:MSScriptControlCtl。
这样的问题讨论过很多次了,自己搜索一下以前的帖子
---------------------------------------------------------------
或者你用google搜索:ScriptControl vb
---------------------------------------------------------------
http://expert.csdn.net/Expert/TopicView1.asp?id=1994490
---------------------------------------------------------------
在工程中添加“Microsoft Script Control1.0”控件,然后试试下面的代码
Private Sub Command1_Click()
With Me.ScriptControl1
.AddCode "dim a,b"
.AddCode "b=1"
.AddCode "a=b+10"
.AddCode "Msgbox a"
End With
End Sub