Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim str As String = New WebClient().DownloadString(("http://downforeveryoneorjustme.com/" + TextBox1.Text))
            If str.Contains("Saytin Adini Duzgun Daxil Edin.") Then
                Label1.Text = "Online"
                Label1.ForeColor = Color.Lime
            ElseIf str.Contains("Edit...!") Then
                Label1.Text = "Offline"
                Label1.ForeColor = Color.Red
            Else
                Label1.Text = "Bel? Bir Sayt Yoxdur !"
                Label1.ForeColor = Color.Pink
            End If
        Catch
            Interaction.MsgBox("Internet BaglatInizi Yoxlayin  !! ", MsgBoxStyle.Information, "Error")
        End Try
    End Sub
End Class