1 1000 1000 PAD280*200 N
2 1000 1500 PAD280*200 N
3 1000 2000 PAD280*200 N
4 1000 2500 PAD280*200 N
5 1000 3000 PAD280*200 N
6 1500 3500 PAD280*200 R
7 2000 3500 PAD280*200 R
8 2500 3500 PAD280*200 R
9 3000 3500 PAD280*200 R
10 3500 3500 PAD280*200 R 
11 4000 3000 PAD280*200 N
12 4000 2500 PAD280*200 N
13 4000 2000 PAD280*200 N
14 4000 1500 PAD280*200 N
15 4000 1000 PAD280*200 N
16 3500 500 PAD280*200 R
17 3000 500 PAD280*200 R
18 2500 500 PAD280*200 R
19 2000 500 PAD280*200 R
20 1500 500 PAD280*200 R

X= 2000 et Y = 3000

   2000,3000	     2000+200,3000
   2000+200,3000     2000+200,3000+400
   2000+200,3000+400 2000-200, 3000+400
   
   
   ScaleX
   vbHimetric
   
   W = ScaleX(Command1.Width, Me.ScaleMode, vbPixels)
H = ScaleY(Command1.Height, Me.ScaleMode, vbPixels)

TwipsPerPixelX ou TwipsPerPixelY

' Convertit de vbHimetric à vbPixels     
    Width = CLng((Picture.Width * 0.001) * 567 / Screen.TwipsPerPixelX)
    Height = CLng((Picture.Height * 0.001) * 567 / Screen.TwipsPerPixelY)
    
    
    
Dim ResolutionX As Long
Dim ResolutionY As Long
    
    
ResolutionX = Screen.Width / Screen.TwipsPerPixelX
ResolutionY = Screen.Height / Screen.TwipsPerPixelY

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _
    As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal _
    hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc _
    As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal _
    nIndex As Long) As Long
    
lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)
  TwipsPerPixelY = 1440& / GetDeviceCaps(lngDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, lngDC
  
  lngHorizontalPosition = lngFormWidth \ TwipsPerPixelX
  lngVerticalPosition = lngFormHeight \ TwipsPerPixelY
  
  sngScreenWitdh = GetSystemMetrics(SM_CXSCREEN)
  sngScreenHeight = GetSystemMetrics(SM_CYSCREEN)
  
  x=533 pixels (width)
  y=453 pixels (height)
  
  
  
  3cm = 30 mm = 30 000 um