How to add zoom option on a picture displayed on User form

How to add zoom option on a picture displayed on User form

Place your Picture in an "Image" control on your Userform.
Then use the code below:-
Adjust the "Top", "Left" and "Zoom" properties to suit.

Private Sub UserForm_Click()
With Me
       .Zoom = IIf(.Zoom = 150, 100, 150)
    With .Image1
           .Top = IIf(.Top = 5, 30, 5)
            .Left = IIf(.Left = 5, 30, 5)
    End With
End With
End Sub