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