Syntax: Aktueller Wert = Objekt.Steuerelementinhalt [Boolean]
bzw.:Dim objSwBtn As SwitchingButton3 Set objSwBtn = Me!SwitchingButton.Object With objSwBtn MsgBox .Steuerelementinhalt End With Set objSwBtn = NothingMsgBox Me!SwitchingButton.Steuerelementinhalt