Public Class Form1

#Region "Check Server Status"
    Private Sub CheckServerStatus()
        Dim tryconnect As New TcpClient

        Try
            tryconnect.Connect("IP/DNS", PORT)
            Label1.ForeColor = Color.Lime
            Label1.Text = "Online"
        Catch ex As Exception
            Label1.ForeColor = Color.Red
            Label1.Text = "Offline"
        End Try
    End Sub
#End Region


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckServerStatus()
    End Sub
End Class
#End Region