Private Sub CommandButton1_Click()
    UserForm1.Image1.BorderStyle = fmBorderStyleNone
    UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom
    Dim ImageButton As New EffectiveButton
    Call ImageButton.SetImageCtrl(UserForm1.Image1, CreateEmfFromRange(Range("A1")))
    UserForm1.Show
End Sub