Clearing Label Captions

Hello
I have a Frame Control on my form, in which i have put 7 lables, I want to clear all these lables by a single click, please help me.

P.S. There are many lables on the form too, but i want to clear the lables in the FRAME.

Thanks in advance
Farooq

VB Code:

Private Sub Command1_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is Label Then
            If ctl.Container Is Frame1 Then ctl.Caption = vbNullString
        End If
    Next ctl
End Sub

When you have received an answer to your question, please mark it as resolved using the Thread Tools menu.