Исправить ошибку "State не может использоваться как выражение" - Visual Basic .NET - Ответ 8462035

Public Class Form1
 
    Private Sub cmdSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendData.Click
        Winsock1.SendData(txtSendData.Text)
        txtOutput.Text = txtOutput.Text & vbNewLine & "Сервер:" & txtSendData.Text
        txtSendData.Text = ""
        txtSendData.Focus()
 
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtOutput.ReadOnly = True
        txtOutput.Text = ""
        txtSendData.Text = ""
        cmdSendData.Text = "Отправить"
 
        Winsock1.LocalPort = 6574
        Winsock1.Listen()
    End Sub
 
    Private Sub Winsock1_Close()
        If Winsock1.State <> sckClosed Then Winsock1.Close()
        Winsock1.Listen()
    End Sub
 
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
        Winsock1.Close()
        Winsock1.Accept(requestID)
        txtOutput.Text = "Есть подключение!!!"
    End Sub
 
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long, ByVal s As String)
        Winsock1.GetData(s)
        txtOutput.Text = txtOutput.Text & vbNewLine & "Клиент: " & s
        txtOutput.SelectionStart = txtOutput.SelectionLength
 
    End Sub
 
    Private Sub Winsock1_Error(ByVal Number As Integer, ByVal Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As Boolean)
        MsgBox(Description, vbCritical)
        Winsock1_Close()
    End Sub
End Class