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