폼 상태에서요

그룹박스를 생성 한 후 그 안에 레이블을 5개정도 배치합니다

그리고 버튼은 초기화  / 삽입/ 삭제 / 종료를

만듭니다 근데 제가 궁금한거

삽입이 일단 안되더라고요 ㅠ
삽입만 먼저 짜볼려고 했거든요

예를들어 삽입을 눌러서 숫자를 누르면 입력이 됩니다
예를들어 28을 입력하면 아래 레이블에 잘 뜹니다
그런데 문제는 그 다음 삽입을 하면 28이 지워지고 새로 입력한 수가 뜹니다

Public Class frmstack28
    Public s28(sizeofstack28) As String
    Public pushdata28 As String

    Private Const sizeofstack28 As Integer = 10
    Public Function enstack28(ByVal pushdata28 As String) As Boolean
        Dim top28 As Integer
        top28 = -1
        enstack28 = False

        If (top28 < sizeofstack28) Then

            top28 = top28 + 1
            s28(top28) = pushdata28
            enstack28 = True

        End If
    End Function

    Private Sub viewlist28(ByVal pushdata28 As String, ByVal intindex28 As Integer)
        grpstack28.Controls.Item(intindex28).Text = pushdata28
    End Sub



    Private Sub frmstack28_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub btninsert28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninsert28.Click
        Dim top28 As Integer

        pushdata28 = InputBox("삽입할 데이터를 입력하세요", "데이터 삽입")
        If enstack28(pushdata28) = False Then
            MsgBox("더 이상 삽입할 공간이 없습니다", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "스택 오버플로우")
        Else
            viewlist28(pushdata28, top28)
        End If


    End Sub
End Class

이렇게 했거든요 ㅠㅠ어떻게 해야할지 모르겠습니다

추가부터 삭제까지 자세한 설명 부탁드립니다