vb.net sockets function :: 2/3 :: need explained

Please explain the lines with the *** next to them.


Public Class StateObject
***     Public workSocket As Socket = Nothing
           Public BufferSize As Integer = 32767
***     Public buffer(32767) As Byte
***     Public sb As New StringBuilder
End Class


Private Sub sockConnected(ByVal ar As IAsyncResult)
            Try
                If client.Connected = False Then RaiseEvent onError("Connection refused.") : Exit Sub
                Dim state As New StateObject
***          state.workSocket = client
***          client.BeginReceive(state.buffer, 0, state.BufferSize, 0, AddressOf sockDataArrival, state)
                RaiseEvent onConnect()
            Catch
                RaiseEvent onError(Err.Description)
                Exit Sub
            End Try
        End Sub