在VB中动态执行VBS代码,可操控窗体控件

Option Explicit
Dim vbs As Object

Private Sub Command1_Click()
    vbs.ExecuteStatement "showtime"
End Sub

Private Sub Form_Load()
    Set vbs = CreateObject("MSScriptControl.ScriptControl")
    vbs.Language = "Vbscript"
    vbs.AddObject "form1", Me, True
    vbs.AddCode "sub showtime()" & vbCrLf & "form1.command1.caption=now" & vbCrLf & "end sub"
End Sub