Public Class Membership

    Class Member
        Public Name As String
        Public Phone As String
    End Class

    Dim memberList As New List(Of Member)

    Private Sub Membership_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sr() As String = IO.File.ReadAllLines("MemberPhones.txt")
        Dim memberline() As String
        For j As Integer = 0 To sr.Count - 1
            memberline = sr(j).Split(","c)
            lstMembers.Items.Add(memberline(0))
        Next

    End Sub

    Private Sub lstMembers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstMembers.SelectedIndexChanged
        Dim sr As String() = IO.File.ReadAllLines("MemberPhones.txt")
        Dim theindex As String = Convert.ToString(lstMembers.SelectedItem)
        Dim list = sr.Split(",c")
        txtNames.Text = list(0)
        txtPhone.Text = list(1)
    End Sub

    Private Sub ModifyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModifyToolStripMenuItem.Click
        memberList(lstMembers.SelectedIndex).Name = txtNames.Text

        memberList(lstMembers.SelectedIndex).Phone = txtPhone.Text
        RefreshLstInfo()

    End Sub

    Private Sub AddToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToolStripMenuItem.Click
        Dim NewPerson As New Member

        NewPerson.Name = txtNames.Text

        NewPerson.Phone = txtPhone.Text

        lstMembers.Items.Add(txtNames.Text & "," & txtPhone.Text)

        RefreshLstInfo()

    End Sub

    Private Sub DeleteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem.Click
        memberList.RemoveAt(lstMembers.SelectedIndex)
        RefreshLstInfo()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()

    End Sub

    Private Sub RefreshLstInfo()

        lstMembers.Items.Clear()

        For j As Integer = 0 To memberList.Count - 1

            lstMembers.Items.Add(memberList(j).Name)

        Next

    End Sub
End Class