' Check if Server Port is available
        Dim isPortAvailable As Boolean = True
 
        Dim ipGlobalProp As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
        Dim ipEndPt() As IPEndPoint = ipGlobalProp.GetActiveTcpListeners
 
        For Each tcpListeners As IPEndPoint In ipEndPt
            If tcpListeners.Port = ServerPort Then
                isPortAvailable = False
                Exit For
            End If
        Next
 
        If isPortAvailable = False Then
            ' Connection already open on Server Port
            InvokeUpdateServerStatus("[ERROR] Connection Already Open on TCP Port: " & ServerPort)
 
        Else
            ' Enable Start Server Button
            InvokeButtonStartServer(True)
            InvokeUpdateServerStatus("[INFO] Server Ready to Start...")
        End If