Hello, I am having a little trouble with my assignment at the moment, at the remove button its suppose to delete the item I have selected and that works fine however I have 4 list boxes each one named First Name, Last Name, Age, and User Id. So as you can see they are all linked together so much question is how do I highlight all the items that are parallel to each other and then deleted?

Code:
 
    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
        'Validate First Name for integer and decimal
        If IsNumeric(TxtFirstName.Text) Then
            MessageBox.Show("Please Enter First Name in Text Form")
            TxtFirstName.Text = String.Empty
            TxtFirstName.Focus()
            Return
        End If
        'Validate Last Name for integer and decimal
        If IsNumeric(TxtLastName.Text) Then
            MessageBox.Show("Please Enter Last Name in Text Form")
            TxtLastName.Text = String.Empty
            TxtLastName.Focus()
            Return
        End If

        'No input
        If TxtFirstName.Text = String.Empty Then
            MessageBox.Show("Please Enter First Name")
            TxtFirstName.Focus()
            Return
        End If
        If TxtLastName.Text = String.Empty Then
            MessageBox.Show("Please Enter Last Name")
            TxtLastName.Focus()
            Return
        End If
        If TxtAge.Text = String.Empty Then
            MessageBox.Show("Please Enter Age")
            TxtAge.Focus()
            Return
        End If

        'Validate Age for non integer and decimal
        Dim AgeInteger As Integer
        If Not Integer.TryParse(TxtAge.Text, AgeInteger) Then
            MessageBox.Show("Please enter Age in Integer form")
            TxtAge.Text = String.Empty
            TxtAge.Focus()
            Return
        End If
        'Validate Age
        If TxtAge.Text < 15 Or TxtAge.Text > 90 Then
            MessageBox.Show("Please enter Valid ages of 15 through 90")
            TxtAge.Text = String.Empty
            TxtAge.Focus()
            Return
        End If

        ' Add inputs to list boxes
        FirstNameListBox.Items.Add(TxtFirstName.Text)
        LastNameListBox.Items.Add(TxtLastName.Text)
        AgeListBox.Items.Add(TxtAge.Text)

        'Calculate User ID and add lowercase the UserID
        Dim counter As Integer = 1
        Do
            If UserIdListBox.FindStringExact(String.Format("{0}{1}{2:000}", TxtFirstName.Text, TxtLastName.Text.First, counter)) <> -1 Then
                counter += 1
            Else
                Exit Do
            End If
        Loop
        UserIdListBox.Items.Add(String.Format("{0}{1}{2:000}", TxtFirstName.Text.ToLower(), TxtLastName.Text.First.ToString().ToLower(), counter))

        'Erase Input
        TxtFirstName.Text = String.Empty
        TxtLastName.Text = String.Empty
        TxtAge.Text = String.Empty

        'Set Focus to First Name
        TxtFirstName.Focus()

        'Enable Clear Button
        BtnClear.Enabled = True

        'Enable Remove Button
        BtnRemove.Enabled = True

    End Sub


    Private Sub BtnRemove_Click(sender As Object, e As EventArgs) Handles BtnRemove.Click
        'Remove Selected User
       

        'Send Focus to First Name
        TxtFirstName.Focus()
    End Sub


    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
        'Erage All Listboxes
        FirstNameListBox.Items.Clear()
        LastNameListBox.Items.Clear()
        AgeListBox.Items.Clear()
        UserIdListBox.Items.Clear()

        'Disable Remove Button
        BtnRemove.Enabled = False
        'Disable Clear Button
        BtnClear.Enabled = False
        'Send Focus to First Name
        TxtFirstName.Focus()
    End Sub


    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
        'Display Message Box of Average Age of Users
        Dim dblTotal As Double = 0
        For Each str As String In AgeListBox.Items
            dblTotal += Double.Parse(str)
        Next
        dblTotal = dblTotal / AgeListBox.Items.Count
        MessageBox.Show("User Average Age:  " & dblTotal)

        'Terminate Program
        Close()
    End Sub

End Class