The following example loads the name of an icon into the icon list for the specified object, which must be a form.
Set Application.VBE.ActiveVBProject.VBComponents(1).Properties("Icon").Object = LoadPicture("Baseball.ico")