Private Sub Form_Load() Shell "C:\Program Files\Internet Explorer\iexplore.exe" & Space(1) & "www.baidu.com", vbNormalFocus Unload MeEnd Sub