Private Sub ListarAlunos()

        Dim lvi As ListViewItem
        Dim aluno As Aluno

        lsvAlunos.Items.Clear()
        lsvAlunos.View = View.Details

        For Each aluno In Alunos
            lvi = New ListViewItem(aluno.Numero)

            lvi.SubItems.Add(aluno.PrimeiroNome)
            lvi.SubItems.Add(aluno.Apelido)

            lsvAlunos.Items.Add(lvi)

        Next

        lsvAlunos.Columns.Add("Número", 50, HorizontalAlignment.Right)
        lsvAlunos.Columns.Add("Primeiro Nome", 115, HorizontalAlignment.Left)
        lsvAlunos.Columns.Add("Apelido", 115, HorizontalAlignment.Left)
        lsvAlunos.Width = 50 + 115 + 115
        lsvAlunos.FullRowSelect = True
        lsvAlunos.GridLines = True

    End Sub