Option Explicit
 
Dim m_PBag As New PropertyBag
 
Private Sub cmdA_Click(Index As Integer)
 
  Dim i As Long
 
  Select Case Index
 
    '-- save
    Case 0
      With m_PBag
        For i = pic1.LBound To pic1.UBound
          .WriteProperty "PIC_" & CStr(i), pic1(i).Image, Nothing
          Set pic1(i) = Nothing
        Next i
      End With
 
    '-- load
    Case 1
      With m_PBag
        For i = pic1.LBound To pic1.UBound
          Set pic1(i) = .ReadProperty("PIC_" & CStr(i), Nothing)
          pic1(i).Visible = True
        Next i
      End With
 
  End Select
 
End Sub
 
Private Sub Form_Load()
  pic1(0).Visible = False
  pic1(1).Visible = False
  Debug.Print pic1.Count
End Sub

Gruß
Dirk

--
?Get it right the first time