Attribute VB_Name = "types" 'Public Type pin ' Parent As Long ' Etat As Long ' PosX As Integer ' PosY As Integer 'End Type Public Objet_PAD() As PAD Public Objet_PIN() As Broche Public PAD_Status() As Long Public NB_PAD As Long Public NB_PIN As Long Public Const hauteurStd = 200 Public Const largeurStd = 400 Public Const taillepin = 150 Public Const taillepuce = 50 Public Action As String Public MouseX As Integer Public MouseY As Integer Public Pad_Selectionnee As Long Public DifX As Integer Public DifY As Integer Public PinNumSelectionnee As Long Public PinPorteSelectionnee As Long Public PinTypeSelectionnee As String