Private Sub chkDeko_Click(Index As Integer)
  Dim i As Integer
  If Index = 0 Then
    For i = 1 To chkDeko.UBound
      chkDeko(i).Value = vbUnchecked
    Next i
  Else
    chkDeko(0).Value = vbUnchecked
  End If
End Sub