可以这样处理:Private Sub Label1_Click()Dim ii = Shell(start + "C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE " + "http://www.sohu.com ", 1)End Sub剩下的你发挥了。