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