空引用错误Visual Basic - 无法找到问题

Question

我正在编写代码并且存在空引用异常。我可以看到它在哪里，但我无法解决它的问题。老实说，我不确定为什么，我一直在阅读和重读我的代码，尝试不同的事情。我认为我是密集的，或者可能会以某种方式对其产生心理障碍。

两位代码是：

       For looper = 0 To 3

        Sandpit.Controls.Add(Me.QueueMembers(looper).VisRep)
        Me.QueueMembers(looper).VisRep.ForeColor = Me.QueueMembers(looper).GetBackgroundColour
        Select Case (Me.Direction)
            Case "R"
                TempPoint.X += 32
                TempPoint.Y = 260
            Case "U"
                TempPoint.Y += 32
            Case "L"
                TempPoint.X -= 32
        End Select

适用于创建队列和所有内容。但是，当我尝试从队列中删除任何内容时，使用以下代码：

       Public Sub RemoveDiner()
    Dim TempDiner As Diner
    For looper = 0 To Me.EndPointer - 1
        TempDiner = QueueMembers(looper)
        QueueMembers(looper) = QueueMembers(looper + 1)

    Next           
        DrawQueue()
        End Sub

导致问题的是弯针，我认为因为一旦项目被删除，QueueMembers阵列中就没有三个项目。 如果有人可以就如何解决这个问题给我建议，因为我对此非常密切，拜托，我会非常感激。 谢谢！