16,722
社区成员




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sc As Object
Dim strProgram As String
strProgram = "Sub Main" & vbCrLf & _
"MsgBox ""Hello World""" & vbCrLf & _
"End Sub"
sc = CreateObject("ScriptControl")
sc.language = "VBScript"
sc.addcode(strProgram)
sc.run("Main")
End Sub