aljcn请进，顺便谢谢暴风雨

因为我原来的帖子不知道为什么被白痴斑竹删除了，所以只好另开。
我用了你的方法，启动程序时不再显示“OK”了，但点了按钮1，在axWeb处显示 “变量未定义”，请问该怎么办？我用Dim axWeb As String也没用，不知道axWeb是什么意思，请问该怎么办？
以下是代码，因为刚才重复发了几个帖，被封发帖权限，我可以另外开帖给你们分数。谢谢http://community.csdn.net/expert/Topicview2.asp?id=4502435#replyOption Explicit
Dim URL(3) As String
Dim i1   As Integer
Dim strURL As String
   
Private Sub a1()                      '    定义进程a1
i1 = i1 + 1
If i1 > 3 Then Exit Sub
WebBrowser1.Navigate URL(i1)
End Sub
 
Private Sub command1_click()        '    按钮1
strURL = "http://www.126.com  "
axWeb.Navigate strURL
axWeb.Tag = strURL
URL(0) = "http://www.google.com  "    '    下面开始定义四个网站地址
URL(1) = "http://www.baidu.com  "
URL(2) = "http://www.5imn.com  "
URL(3) = "http://5imn.com/1c.htm  "
i1 = -1
End SubPrivate Sub axWeb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     If CStr(URL) = axWeb.Tag Then
           Call a1                               '调用a1
           Print "ok  "                           '请看这里输出“OK”
 
End Sub