Zoom Example VB

The following example reduces the current zoom factor by one half, and then repaints the image display.

Private Sub cmdZoom_Click()
    
    ImgEdit1.Zoom = ImgEdit1.Zoom / 2
    ImgEdit1.Refresh
End Sub