Checking internet connection in VB. Net 2005 Dim ping As New System Net NetworkInformation Ping Dim func = Function (url As String) (If (ping Send (url) Status = Net NetworkInformation IPStatus Success, 1, 0)) Dim count = func ("www google com") + func ("www yahoo com") + func ("www bing com") If count > 0 Then MessageBox Show (count " connections available ") Else MessageBox Show ("No internet connection available") End If Armin