Как удалить ВСЕ лабелы одним нажатием?

 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i1 As Integer
        Dim y1 As Integer = 21
 
        For i1 = 0 To 20
            Me.Controls.Add(New Label With {.Name = "N" & i1, .Location = New Point(4, y1), .AutoSize = True, .Tag = "0", .Text = i1})
            y1 += 21
        Next
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each ctl As Control In Controls
            Select Case ctl.Tag
                Case "0" : ctl.Dispose() ' : MsgBox(ctl.Tag)
            End Select
        Next
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For i = Controls.Count - 1 To 0 Step -1
        If Controls(i).Tag = "0" Then Controls(i).Dispose()
    Next
End Sub

Me.Controls.OfType(Of Label).Where(Function(x) x.Tag = "0").ToList().ForEach(Sub(x) x.Dispose())

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  For i As Integer = Controls.Count - 1 To 0 Step -1
    Dim cntrl As Control = Controls(i)
    If (TypeOf cntrl Is Label) AndAlso (cntrl.Tag = "0") Then
      Controls.Remove(cntrl)
    End If
  Next i
End Sub