Скрытие и отображение элементов ActiveX по условию

[Bozhkov]

О, вот так работает автоматом

Private Sub CheckBox4_Click()
    If CheckBox4 Then
           TextBox25.Visible = True
    Else
        TextBox25.Visible = False
    End If
End Sub

Странно, почму просто выключаться не хочет?