[Amin_Mansouri]

 سلام
اقا من مریضم تب شدید کردم
بفرمایید : 

کد:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
For i = O To List1.ListCount - 1
Sleep 8000
MsgBox List1.List(i)
WebBrowser1.Navigate (List1.List(i))
Next
End Sub