how to configure a connection in runtime

Dim connType As FlowGraphConnectorType

Private Sub mnuSelectAll_Click()
    'FlowGraph.SelectAll
    
    connType = connType + 1
    
    If connType > xtpFlowGraphConnectorElbowDoubleArrow Then
        connType = xtpFlowGraphConnectorStraight
    End If
    
    Dim Page As FlowGraphPage
    Set Page = FlowGraph.ActivePage
    
    Dim pConnection As FlowGraphConnection
    Dim i As Integer
    For i = 0 To Page.Connections.Count - 1
        
        Set pConnection = Page.Connections.Connection(i)
        pConnection.Style = connType
    Next i
End Sub