Public Function funConexion(ByVal DIR As String) As Boolean
        Dim Req As HttpWebRequest = WebRequest.Create(DIR)
        Dim res As System.Net.HttpWebResponse
        If Not BackgroundWorker1.IsBusy Then
            BackgroundWorker1.RunWorkerAsync()
            Try
                Req = DirectCast(System.Net.WebRequest.Create(DIR), System.Net.HttpWebRequest)
                Req.Timeout = 5000
                res = DirectCast(Req.GetResponse(), System.Net.HttpWebResponse)
                Req.Abort()
                If res.StatusCode = System.Net.HttpStatusCode.OK Then
                    Return True
                    Exit Function
                Else
                    Return False
                    Exit Function
                End If
            Catch
                Return False
                Exit Function
            End Try
            BackgroundWorker1.CancelAsync()
        End If
    End Function