我想用Timer1控件实现每隔10秒按顺序读取10个网址在WebBrowser1控件里显示.不知道怎么实现.请好心的师傅们帮帮忙！！！谢谢！！！！！！！！！！！！！

Dim A
Private Sub Form_Load()
A = 1
Timer1.Interval = 10000
End Sub
 
Private Sub Timer1_Timer()
A = A + 1
WebBrowser1.Navigate A
End Sub
自己定义第一个网址为1然后每10秒A增加1即读取第二个网址