I have a easier code to make the things visible / not visible.

Code:
Function SetVisibility(strName As String, iNum As Integer, blnTF As Boolean)
Dim x As Integer
    For x = 1 To iNum
        Me.Controls(strName & x).Visible = blnTF
    Next
End Function

Function FramesLabelsTexts(blnTF As Boolean)
    SetVisibility "Frame", 4, blnTF
    SetVisibility "Label", 4, blnTF
    SetVisibility "Text", 4, blnTF
End Function
So when you want your Frames, TextBoxes, and Labels visible property to be true you would use:

Call FramesLabelsText (True)

And to set visibility property to false:

Call FramesLabelsText (False)