Option Explicit
Private 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

Private Sub Timer1_Timer()
Dim f As String
If InternetConnected Then
f = 1
Else
Refresh
End If
End Sub
Sub telo()
Open "c:\\1.txt" For Append As #1 '????????? ???? ??? ?????????? ??????, ? ??????? ?????? 1
Print #1, Time ' ?????????? ? ???? 1.txt ?????
Close #1 '????????? ????
End Sub

Private Sub Form_Load()

Timer1_Timer

If f = 1 Then
Call telo
Else
End If
End Sub