Syntax: Objekt.Wert = 0 [Long]
Dim objPrBar As SpecialProgressbar3 Set objPrBar = Me!SpecialProgressbar.Object With objPrBar MsgBox .Wert End With Set objPrBar = Nothing bzw.: MsgBox Me!SpecialProgressbar.Wert
Dim objPrBar As SpecialProgressbar3 Set objPrBar = Me!SpecialProgressbar.Object With objPrBar MsgBox .Wert End With Set objPrBar = Nothing
MsgBox Me!SpecialProgressbar.Wert