multiple labels looping

[taxes]

Hi,

Referring to brown monkey's post, if some of the labels on the form were not used for dates, then identify those which are and set their Tag property to something (e.g. "YES") and then code

Dim c As Control
      Dim intX as Integer=0
      For Each c In Me.Controls
         If c.Tag="YES" Then
            c.Text=str(dteShiftWeek(intX))
            intx=intx+1
         End If
      Next