verificar conexion a internet en vb6

[mveraa]

me puedes dar por favor un ejemplo del uso del ping por ejemplo yo lo hago asi pero se cuelga si no hay internet




Dim oIE As Object, cCad As String, cPar1
sub oIE = CreateObject("InternetExplorer.Application")




cCad = "http://wwww.tonteras/o/ingreso.php?user=" + user1 _
+ "&clave=" + clave1



oIE.MenuBar = True
oIE.TOOLBAR = True
oIE.Visible = False
oIE.Navigate2 (cCad)


While (oIE.locationurl <> "http://www.tontera.cl/aldia.php")

If oIE.locationurl = "http://www.tonteras.cl/no_aldia.php" Then


Command1.Enabled = False
Command2.Enabled = False

FCONSULTAR.Command1.Enabled = False
Command5.Enabled = True

Exit Sub

End If

Wend


gracias...