Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Value = 0
' Här placerar du koden för vad som skall hända när man trycker på knappen.
End If
End Sub