Enqueue и Dequeue

Question

Итак, у меня есть 5 текстовых полей с именами от num0 до num4, у каждого текстового поля есть значение 5, поэтому у меня также есть кнопка Use, которая уменьшает значение num0, вот код:

    Private Sub useBtn_Click(sender As Object, e As EventArgs) Handles useBtn.Click

        If CInt(num0.Text > 0) Then
            num0.Text = CInt(num0.Text) - 1
        End If
    End Sub

И у меня есть NextКнопка, которая, если значение num0 меньше 5, значение num0 будет перемещено в значение num4, а значение num4 - в num0 и так далее, но не будет перемещаться, это мой код:

 Public Class Form1
    Dim dulo As Integer = -1
    Dim que(5) As Integer

    Private Function isFull() As Boolean
        If dulo = 4 Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Function isEmpty() As Boolean
        If dulo = -1 Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 4
            que(i) = Nothing
        Next
    End Sub

    Private Sub nextBtn_Click(sender As Object, e As EventArgs) Handles nextBtn.Click
        deQ()
    End Sub

    Private Sub displayQ()
        Dim dispTxt As Char = ""

        If que(0) = Nothing Then
            num0.Text = ""
        Else
            num0.Text = que(0)
        End If

        If que(1) = Nothing Then
            num1.Text = ""
        Else
            num1.Text = que(1)
        End If

        If que(2) = Nothing Then
            num2.Text = ""
        Else
            num2.Text = que(2)
        End If

        If que(3) = Nothing Then
            num3.Text = ""
        Else
            num3.Text = que(3)
        End If

        If que(4) = Nothing Then
            num4.Text = ""
        Else
            num4.Text = que(4)
        End If
    End Sub

    Private Sub deQ()
        If Not isEmpty() Then
            dulo = dulo - 1

            For i As Integer = 0 To 4
                que(i) = que(i + 1)
            Next
            que(dulo + 1) = Nothing

            displayQ()
            enQ()
        End If
    End Sub

    Private Sub enQ()
        Dim pasok As Integer = que(0)
        If Not isFull() Then
            dulo = dulo + 1
            que(dulo) = pasok
            displayQ()
        End If
    End Sub

Чего мне не хватает,Спасибо.