字符串问题转成代码？

Question

记得在debase中，能将字符串转成代码运行，在VB里怎样实现？dim comm as string
comm="me.show"
&comm     ?????  希望能达到me.show命令效果！
请高手指点！

Answer 1

用Microsoft Script Control或相应的api都可以达到你的目的，但是，这些都离不开vb的运行环境，也就是说，编译之后，会产生问题，所以，我建议你放弃

Answer 2

完全可以，加载Microsoft Script Control控件（MsScript.ocx），将language设置为VBScript
运行：Private Sub Command1_Click()
    On Error GoTo 1
    ScriptControl1.Reset
    Call ScriptControl1.AddCode(Text1.Text)
    Exit Sub
1
    MsgBox Err.Description
End Sub

Answer 3

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPrivate Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
   ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Form_Load()
Dim aa As String
aa = "msgbox 2"
ExecuteLine aaEnd Sub