Private Sub lvpeople_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvpeople.SelectedIndexChanged
If lvpeople.SelectedItems.Count > 0 Then
TextBox1.Text = lvpeople.SelectedItems(0).Tag.ToString()
End If
End Sub