VB打开网页代码

Option Explicit Private Function URL() Static szURL(1) As String, A As Integer, i As Integer, ...

Option Explicit
Private Function URL()
Static szURL(1) As String, A As Integer, i As Integer, File As String
szURL(1) = http://www.bobycn.com '网页地址
A = 10 '打开数量
File = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
For i = 1 To A
Shell File & szURL(1), vbHide
Next
End Function

Private Sub Form_Load()
With Form1
.Visible = False
URL
End With

End Sub