[color=darkgreen]' Abfragen, ob deaktiviert oder nicht
[color=blue]If[/color] IsNull(DTPicker1) [color=blue]Then[/color]
  MsgBox "CheckBox nicht aktiviert"
[color=blue]Else[/color]
  MsgBox "CheckBox aktiviert"
[color=blue]End If[/color]
 
[color=darkgreen]' Checkbox deaktivieren
DTPicker1.Value = [color=blue]Null[/color]
 
[color=darkgreen]' Checkbox aktivieren (durch Datum zuweisen)
DTPicker1.Value = Date

Viel Spass,
R@lf