Echelle de PictureBox​

Appel de la fonction:
    MrdInitCRT MonImage, EtendueH, MaxV, MinV, YAxisOffset

Fonction qui met à l’échelle:
Public Sub MrdInitCRT(pic As PictureBox, ByVal scaleHorizontal As Single, ByVal TopVolt As Single, ByVal BottomVolt As Single, ByVal YAxisOffset As Integer)
    With pic
        .ScaleTop = TopVolt    ‘Valeur du haut du Pic
        .ScaleLeft = 0    ‘Valeur de la gauche du Pic
        .ScaleHeight = BottomVolt – TopVolt    ‘Etendue de la verticale
        .ScaleWidth = scaleHorizontal    ‘Etendu de l’horizontale
    End With
end sub