B'jour

J'essaie de faire un zoom sur un picturebox dans lequel je dessine des lignes et des polygones

pour l'instant j'ai essayé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub CmdZoom_Click()
    DrawSpace.ScaleHeight = DrawSpace.ScaleHeight -100
    DrawSpace.ScaleWidth = DrawSpace.ScaleHeight -100
    DrawSpace.Refresh
End Sub
ou DrawSpace est mon picturebox

le problème c'est qu'il ne me redessine pas mes lignes et polygones

auriez vous un idée? : et es ce que ma solution est adéquate pour faire un zoom? :