GefObject.PercentForegroundFill (property)

Gets and sets the current percent fill used for static filling of the object.
Syntax: long = object.PercentForegroundFill
object.PercentForegroundFill = long
Description: This static filling capability of an object is not exposed by the CimEdit user interface. If there is fill animation on the object, it overrides the static filling. This static filling can be controlled at runtime using scripting, there by allowing you to implement fill animation from a script rather than using the FillAnim property.

Returns Nothing if this property is not valid for the object.


Sub GefObject_PercentForegroundFill()
    Dim oCimObj As GefObject
    Set oCimObj = CimGetObject
    oCimObj.PercentForegroundFill = 80
    CimGetScreen.Refresh False
    MsgBox "The tank is filled to " & _
        oCimObj.PercentForegroundFill & "%"
End Sub