Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
        If txtToevoegen.Text = Nothing Then
        Else
            If rbtAchteraan.Checked Or rbtVooraan.Checked Then
                If _iVolgende Mod 10 = 0 Then
                    ReDim Preserve _arrsLijst(_iVolgende + 9)
                End If
                If rbtAchteraan.Checked Then
                    _arrsLijst(_iVolgende) = txtToevoegen.Text
                Else
                    For i = 0 To (_iVolgende - 1)
                        _arrsLijst(_iVolgende - i) = _arrsLijst(_iVolgende - (1 + i))
                    Next
                    _arrsLijst(0) = txtToevoegen.Text
                End If
                _iVolgende += 1
                _iIndex = 0
                txtToevoegen.Text = Nothing
                lblLijst.Text = _arrsLijst(_iIndex)
                gpbLijst.Text = "Element " + (_iIndex + 1).ToString + "/" + (_iVolgende).ToString
            End If
        End If
    End Sub