Private Sub lstPessoas_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lstPessoas.MouseDoubleClick
[INDENT]Dim pessoa As Pessoa = CType(lstPessoas.SelectedItem(), Pessoa)
txtNome.Text = pessoa.Nome
txtMorada.Text = pessoa.Morada
txtTelefone.Text = pessoa.Telefone[/INDENT]
End Sub