vb замена цикла

[muham33]

На модуле:

Option Explicit

Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
End Function

Public Sub f1()
Do Until InternetConnected
DoEvents
Loop
End Sub

На форме:

Private Sub Form_Load()
MsgBox "0"
f1
MsgBox "1"
End Sub

Вот код, как думает что он делает?! Мне надо чтоб он делал тоже самое, только без помощи циклов, цикл загружает процессор на 100% и это не есть гуд.

[DiemonStar]

Вот код, как думает что он делает?!

в цикле ожидает появления интернет-соединения.

Мне надо чтоб он делал тоже самое, только без помощи циклов, цикл загружает процессор на 100% и это не есть гуд.

ну так вешаете проверку на события таймера, работающего, например, с периодичностью 1 сек. как только таймер отключается (при появлении соединения), то выводите соответствующее сообщение.