Sub testok()
Dim img
Set img = UserForm1.Controls.Add("Forms.Image.1", , True)
Dim c As Control, nom_img$
With UserForm1
For Each c In .Controls
If TypeOf c Is Image Then
nom_img = CStr(c.Name)
.Controls.Remove .Controls(nom_img).Name ' ok
End If
Next c
End With
End Sub