VB add edit del and exit

Public Class Form1

Dim arrTable(4, 3) As String
Dim ctr As Integer
Dim ctr2 As Integer


Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
arrTable(ctr, 0) = txtFirstName.Text
arrTable(ctr, 1) = txtLastName.Text
arrTable(ctr, 2) = txtStudenNumber.Text
arrTable(ctr, 3) = txtGrade.Text

lstView.Items.Add(arrTable(ctr, 0))
lstView.Items(ctr).SubItems.Add(arrTable(ctr, 1))
lstView.Items(ctr).SubItems.Add(arrTable(ctr, 2))
lstView.Items(ctr).SubItems.Add(arrTable(ctr, 3))
For i As Integer = 1 To UBound(arrTable, 2)
lstView.Items(ctr).SubItems.Add(arrTable(ctr, i))
Next
For i As Integer = 0 To UBound(arrTable, 2)
lstView.Columns(i).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize)

Next
ctr += 1
If ctr >= 5 Then
btnAdd.Enabled = False
End If

txtFirstName.Clear()
txtLastName.Clear()
txtStudenNumber.Clear()
txtGrade.Clear()
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()

End Sub



Private Sub lstView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstView.Click

If lstView.SelectedItems(0).Index = 0 Then

txtFirstName.Text = arrTable(0, 0)
txtLastName.Text = arrTable(0, 1)
txtStudenNumber.Text = arrTable(0, 2)
txtGrade.Text = arrTable(0, 3)

End If

If lstView.SelectedItems(0).Index = 1 Then

txtFirstName.Text = arrTable(1, 0)
txtLastName.Text = arrTable(1, 1)
txtStudenNumber.Text = arrTable(1, 2)
txtGrade.Text = arrTable(1, 3)

End If

If lstView.SelectedItems(0).Index = 2 Then

txtFirstName.Text = arrTable(2, 0)
txtLastName.Text = arrTable(2, 1)
txtStudenNumber.Text = arrTable(0, 2)
txtGrade.Text = arrTable(2, 3)

End If

If lstView.SelectedItems(0).Index = 3 Then

txtFirstName.Text = arrTable(3, 0)
txtLastName.Text = arrTable(3, 1)
txtStudenNumber.Text = arrTable(3, 2)
txtGrade.Text = arrTable(3, 3)

End If

If lstView.SelectedItems(0).Index = 4 Then

txtFirstName.Text = arrTable(4, 0)
txtLastName.Text = arrTable(4, 1)
txtStudenNumber.Text = arrTable(4, 2)
txtGrade.Text = arrTable(4, 3)

End If



End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click



If ctr > 0 Then
lstView.Items.RemoveAt(ctr2)
ctr -= 1
End If

txtFirstName.Clear()
txtLastName.Clear()
txtStudenNumber.Clear()
txtGrade.Clear()
End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
lstView.SelectedItems(0).SubItems(0).Text = txtFirstName.Text
lstView.SelectedItems(0).SubItems(1).Text = txtLastName.Text
lstView.SelectedItems(0).SubItems(2).Text = txtStudenNumber.Text
lstView.SelectedItems(0).SubItems(3).Text = txtGrade.Text

arrTable(lstView.SelectedItems(0).Index, 0) = txtFirstName.Text
arrTable(lstView.SelectedItems(0).Index, 1) = txtLastName.Text
arrTable(lstView.SelectedItems(0).Index, 2) = txtStudenNumber.Text
arrTable(lstView.SelectedItems(0).Index, 3) = txtGrade.Text
End Sub
End Class