For each label in me.controls

[.paul.]

For Each lbl As Label In Me.Controls.OfType(Of Label).Except(New Label() {name1, name2})
    lbl.Tag = randomnumber
Next