VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "Broche" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False ' la classe Pin Private PIN_ID As Long Private PIN_Position(1) As Integer Public Function Set_PIN_Parametres(ID As Integer, PosX, PosY) PIN_ID = ID PIN_Position(0) = PosX PIN_Position(1) = PosY End Function Public Function Get_PIN_Position(ByRef PosX As Integer, ByRef PosY As Integer) If IsNumeric(PosX) Then PosX = PIN_Position(0) If IsNumeric(PosY) Then PosY = PIN_Position(1) End Function