Something

        Sub link(ByVal c As Client, ByVal item_id As Long, ByVal container_id As Long)
            Dim p As New Packet_send

            p.str.Write(New Byte() {0, 9})
            p.str.Write(c.get_seq)

            p.str.Write(New Byte() {4, 0})
            p.str.Write(CRCs.UpdateContainmentMessage)
            p.str.Write(item_id)
            p.str.Write(container_id)
            p.str.Write(4)

            p.str.Write(New Byte() {0, 0})
            c.send(p.Prepare(True), True)
        End Sub