Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
Dessin
:
VB253.tmp
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
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