Private Sub chkDeko_Click(Index As Integer)
Dim OldIndex
 
If chkDeko(Index).Value = vbChecked Then OldIndex = Index
 
For i = 0 To chkDeko.UBound
       If OldIndex <> i Then chkDeko(i).Value = vbUnchecked
Next i
 
If OldIndex <> "" Then chkDeko(oldindex).Value = vbChecked
 
End Sub