Sostituire la connessione da winsock a socket

[Black_li0n]

salve a tutti, da un paio di mesi uso il winsock per connessioni come ad esempio chat ecc...
oggi però voglio passare con il socket, potete gentilmente cambiare i seguenti codici rendendoli sotto forma di Socket?

per quanto riguarda il server ecco il codice: (metto funzione apriCD non avendo altri esempi)

    Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival
        Winsock1.GetData(Label1.Text)
        Select Label1.Text
            Case 1
                mciSendString("set CDAUDIO door open", 0, 0, 0)
        End Select
    End Sub
End Class

invece per quanto riguarda il client:

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Winsock1.SendData("1")
    End Sub
End Class

grazie in anticipo