vb6怎么在代码中执行编译命令

vb6怎么在代码中执行编译命令

你说的有点像外*挂中间的脚本，可以让使用者自己编写一段代码，程序可以执行。
但是编译成exe就不现实了，只要能执行脚本不就行了吗？
VB语言可以实现这一功能，VB利用Microsoft Script Control对象可以动态执行（即无需事先编译成EXE）VBS指令，代码如下：

窗体放一个多行文本框和一个按钮。

Private Sub Command1_Click()
Dim ScriptControl As Object, Psw$
Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
ScriptControl.Language = "VBScript"
ScriptControl.Timeout = -1
ScriptControl.AddCode Text1.Text
Psw = ScriptControl.Run("encodePwd")
MsgBox Psw
End Sub

Private Sub Form_Load()
Text1.Text = "Function encodePwd()" & vbCrLf & _
             "encodePwd = ""这是返回字符串""" & vbCrLf & _
             "End Function"
End Sub