[Amin_Mansouri]

بفرمایید:
لطفا فارسی تایپ کنید وعنوان مناسب برای تایپک استفاده کنید.
اینم کد: 

کد:

Private Declare Function GetTickCount Lib "kernel32" () As Long

 Public Sub Wait(Time As Long)
 Dim StartTime As Long

 StartTime = GetTickCount()

 While (StartTime + Time) > GetTickCount()
 DoEvents
 Wend
 End Sub
 
 Private Sub Command1_Click()
 For i = O To List1.ListCount - 1
Wait 8000
 MsgBox List1.List(i)
 WebBrowser1.Navigate (List1.List(i))
 Next
 End Sub