Compile Error when trying to change Object Visibility

[gastoff]

I am trying to figure out what is causing my code to derail and could use another set of eyes looking at it.

I have a combobox (cmbEmp1) that is populated with a list of employees.
I have 4 text fields (txtTime1,2,3,4) that have their Visible property set to False upon loading my userform (frmTimeCard).

I am trying to make the text fields visible when any employee in the list is selected, and disappear if the combobox is cleared. Below is the code I have so far:

Private Sub cmbEmp1_Change()
Dim index As Integer
Dim x As Long
index = cmbEmp1.ListIndex
For x = 1 To 4
frmTimeCard.Controls("txtTime" & x).Clear
Select Case index
    Case Is = 0
            For x = 1 To 4
            frmTimeCard.Controls("txtTime" & x).Visable = False
            Next x
    Case Else
            For x = 1 To 4
            frmTimeCard.Controls("txtTime" & x).Visable = True
            Next x
End Select    
End Sub

As an amateur at VBA (5 days and counting), I am having trouble debugging.

 

[gastoff]

And upon reading some other posts, I just stumbled upon how to use the frame object to group things...that could cut out the loop since all the objects are being toggled at once.

 

[V_Malkoti]

I guess you are getting compile errors for:

1. Missing next statement for the first For statement. Add a Next statement after End Select.
2. variable x is used as control variable again inside loops. In inner loops, use different variable names.

 

[gastoff]

I took out the loops and just went with trying to change each object's visibility directly. Still receiving "Compile error. Method or data member not found."

Private Sub cmbEmp1_Change()
Dim index As Integer
index = cmbEmp1.ListIndex
Select Case index
    Case Is = 0
          txtTime1.Visable = False
          txtTime2.Visable = False
          txtTime3.Visable = False
          txtTime4.Visable = False
    Case Else
          txtTime1.Visable = False
          txtTime2.Visable = False
          txtTime3.Visable = False
          txtTime4.Visable = False
End Select
End Sub

I know it must be something really simple that I am missing, but I still don't know what is going wrong.

 

[gastoff]

Realized my train derailed in 1st grade English class...I was spelling Visible wrong...FML.