Private Sub prxrout_Timer()
If vx(58) = 1 Then
  Dim nTime As Single
  nTime = Ping(vx(61))
  If nTime <> -1 Then
  InternetStatus = "Online"
  Else
  InternetStatus = "Offline"
  End If
  Else
  InternetStatus = "Offline"
  End If
End Sub

Public Function Ping(ByVal sHost As String) As Single
  Dim QI As QOCINFO
  Dim vTime As Single
 
  QI.dwSize = Len(QI)
  vTime = Timer
  If IsDestinationReachable(sHost, QI) = 1 Then
 
  Else
 
  End If
End Function

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm