GefPipeFormat.Radius (property)

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

We can set and get the Radius of PipeObject, valid range for Radius is from 1 to 8.

Example:

Sub GefPipeFormat_Radius()
    
    Dim oCimObj As GefObject
    Dim oCimPipeFmt As GefPipeFormat
    
    Set oCimObj = CimGetObject
    Set oCimPipeFmt = oCimObj.PipeFormat
    If Not oCimPipeFmt Is Nothing Then
         oCimPipeFmt.Radius = 5
         CimGetScreen.Refresh False
    End If
    
End Sub