Удаление программно созданных Label - Visual Basic .NET

Формулировка задачи:

Доброго времени суток! Прошу помощи в удалении программно созданных Label. Создать получилось, а вот с удалением как то не задалось. Создаю таким образом:

                    Листинг программы
                
 
                        
                          
                    
Sub daty()
 
        Dim mas(0 To kolvo - 1) As Label
        For i = 0 To kolvo - 1
            mas(i) = New Label
            mas(i).Text = i + 1
            mas(i).Left = 160
            mas(i).Top = 30
            mas(i).Height = 20
            mas(i).Width = 20
            mas(i).AutoSize = False
 
            'mas(i).BorderStyle = BorderStyle.FixedSingle
            If i > 0 Then
                mas(i).Left = 25 * i + 170
            Else
                mas(i).Left = 170
            End If
            mas(i).Visible = True
            Me.Controls.Add(mas(i))
        Next
    End Sub

Потом в событии Button_Click пытаюсь удалить:

                    Листинг программы
                
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim mas(0 To kolvo - 1) As Label
        For Each lb As Label In mas
            lb.Dispose()
        Next
 
    End Sub

Возникает ошибка: "Ссылка на объект не указывает на экземпляр объекта" Как правильно удалить? Заранее признателен!

Решение задачи: «Удаление программно созданных Label»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Class Form1
  Dim kolvo As Integer = 3
  Dim mas() As Label
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ReDim mas(0 To kolvo - 1)
    For i = 0 To kolvo - 1
      mas(i) = New Label
      mas(i).Text = i + 1
      mas(i).Left = 25 * i + 170
      mas(i).Top = 30
      mas(i).Height = 20
      mas(i).Width = 20
      mas(i).AutoSize = False
 
      mas(i).Visible = True
      Me.Controls.Add(mas(i))
    Next
  End Sub
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For Each lb As Label In mas
      lb.Dispose()
    Next
  End Sub
End Class