Attribute VB_Name = "Module5"
Public Function Insert_Lien(ByVal x As Double, ByVal y As Double, Optional ByVal type_pad As String, Optional orientation As String) As Long

    ' incrémente le nombre de lien
    NB_LIEN = NB_LIEN + 1

    ' redimensionne le tableau de liens
    ReDim Preserve Objet_LIEN(NB_LIEN - 1)

    ' instancie une nouvelle PAD
    Set Objet_PAD(NB_PAD - 1) = New LIEN

    
    
End Function