Miscellany

    Sub Login_Handle_multi(ByVal data As BinaryReader)
        While data.BaseStream.Length > data.BaseStream.Position + 3
            Login_parse(data.ReadBytes(data.ReadByte))
        End While
    End Sub