GefPipeFormat.Flare (property)

Gets and sets the Flare of the pipe.
Syntax: long = object.Flare
object.Flare = long

We can set and get the Flare of PipeObject, valid range for Flare is from 0 to 7.


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