| Gets and sets the Flare of the pipe. | |
| Syntax: | long = object.Flare object.Flare = long |
| Description: | We can set and get the Flare of PipeObject, valid range for Flare is from 0 to 7. Example: Sub GefPipeFormat_Flare() Dim oCimObj As GefObject Dim oCimPipeFmt As
GefPipeFormat Set oCimObj = CimGetObject Set oCimPipeFmt =
oCimObj.PipeFormat If Not oCimPipeFmt Is Nothing
Then oCimPipeFmt.Flare
= 5 CimGetScreen.Refresh
False End If End Sub |