Attribute VB_Name = "types" Public Type pin Parent As Long Etat As Long PosX As Integer PosY As Integer End Type Public Gates() As Gate Public GatesStatus() As Long Public NBGates 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 PorteSelectionnee As Long Public DifX As Integer Public DifY As Integer Public PinNumSelectionnee As Long Public PinPorteSelectionnee As Long Public PinTypeSelectionnee As String