Load Picture4(Picture4.Ubound + 1)
Picture4(Picture4.Ubound).Top = Picture4.Ubound
Picture4(Picture4.Ubound).Visible = True

With myPropBag
 
 
  For i=1 To Picture4.count-1  
        .WriteProperty "UserPic", Picture4(i).Image, Nothing
        .WriteProperty "UserPicWidth", Picture4(i).Width, Nothing
        .WriteProperty "UserPicHeight", Picture4(i).Height, Nothing
        .WriteProperty "UserPicLeft", Picture4(i).Left, Nothing
        .WriteProperty "UserPicTop", Picture4(i).Top, Nothing
Next i
         End With
 
 With myPropBag
 
 
           On Error Resume Next
      For i=1 To Picture4.count-1
        Set Picture4(i) = .ReadProperty("UserPic", Nothing)
        Picture4(i).Width = .ReadProperty("UserPicWidth", Nothing)
        Picture4(i).Height = .ReadProperty("UserPicHeight", Nothing)
      usw.
    End With