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