simple bit of code , can't get it to work / clearing label captions

Hi

I am trying to clear all the label captions from a form at the same time, I have tried to use this bit of code to clear all textboxes and adapted it to labels but it won't work. How do I do it ?

Private Sub Command2_Click()

Dim indx As Integer

With Me.Controls
MsgBox .Count
For indx = 0 To .Count - 1
If Me.Controls(indx).Tag = "1" Then
If (TypeOf Me.Controls(indx) Is Label) Then
Me.Controls(indx).Caption = " "
End If
End If
Next
End With
DoEvents

End Sub


Thanx
Locutus

Try:

Code:

---

  For Each MyControl In Me.Controls
      If TypeOf MyControl Is Label Then MyControl.Caption = ""
  Next

---