[Suрernatural]

Credit = Tim Hartwig

Code

Public Function CheckURL(ByVal URL As String) As Boolean
    Try
        Dim Response As Net.WebResponse = Nothing
        Dim WebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
        Response = WebReq.GetResponse
        Response.Close()
        Return True
    Catch ex As Exception
    End Try
End Function

[codepoet]

please dont post my work on HF without asking me first....

[PITTSKATERG]

his was posted several hours before yours, and he gave credit to someone

[Vice]

I put this in the other thread as well, but you should add Return False in between Catch ex As Exception and End Try.

[Suрernatural]

please dont post my work on HF without asking me first....

Sorry I gave proper credits do.