把Textbox的命令写入一个.bat文件里面，再用shell（可以用api函数的shellexecute）调用
id=shell("cmd.exe textbox.text")
Dim x As IntegerPrivate Sub Command1_Click()x = x + 1End SubPrivate Sub Command2_Click()Print xEnd Sub
