The other post reply was
Private Sub Check0_Click()
If Me.Check0 = -1 Then
Me.Check2 = -1
Else
Me.Check2 = 0
End If
End Sub
Try:
Private Sub Check0_Click()
If Me.Check0 = True Then
Me.Check2.enabled = True
Me.Check2 = True
Else
Me.Check2.enabled = False
Me.Check2 = False
End If
End Sub