Private Sub Command1_Click()CreateObject("wscript.shell").run "http://www.163.com"End Sub
command下写代码如下：Private Sub Command1_Click()CreateObject("wscript.shell").run "http://www.163.com"End Sub
