Dynamisk skjule control

er det muligt at skjule labels og tekstbokse dynamisk ?

Det er lykkedes mig at dynamisk at udvælge de controls der skal skjules med følgende kode:

Dim IntLastDay As Integer
IntLastDay = Forms!frm_visits!LastDay
Dim Lefty As String
Dim cCont As Control
Dim strCNT As String
'textbox
    For Each cCont In Me.Controls
        If TypeName(cCont) = "Textbox" Then
            If IsNumeric(cCont.Name) Then
                If cCont.Name > IntLastDay Then
                    MsgBox "tekstboks: " & cCont.Name

                End If
            End If

'labels
        ElseIf TypeName(cCont) = "Label" Then
            Lefty = Left(cCont.Name, 2)

            If IsNumeric(Lefty) Then
                If Lefty > IntLastDay Then
                    MsgBox "Label: " & cCont.Name
                End If
            End If
        Else
        MsgBox "out of category"
        End If
    Next cCont

Men derfra og så til rent faktisk at skjule dem, der er et stykke :-(

/dm013