Private Sub Command3_Click()
Load Picture3(Picture3.UBound + 1)
Picture3(Picture3.UBound).Top = Picture3.UBound + 500
Picture3(Picture3.UBound).Visible = True
End Sub
 
Private Sub Command4_Click()
Dim F As Integer
  Dim i As Integer
  ' Neues PropertyBag-Objekt erstellen
  Dim myPropBag As New PropertyBag
 
 
  With myPropBag
 
 
 
 
 
        For i = 1 To Picture3.Count - 1
 
           .WriteProperty "UserPic" & CStr(i), Picture3(i).Image, Nothing
            .WriteProperty "UserPicWidth" & CStr(i), Picture3(i).Width, 0
            .WriteProperty "UserPicHeight" & CStr(i), Picture3(i).Height, 0
            .WriteProperty "UserPicLeft" & CStr(i), Picture3(i).Left, 0
            .WriteProperty "UserPicTop" & CStr(i), Picture3(i).Top, 0
            .WriteProperty "UserPicBackcolor" & CStr(i), Picture3(i).BackColor, _
              0
            .WriteProperty "UserPicBoderstyle" & CStr(i), Picture3( _
            i).BorderStyle, 0
       Next i
 
 
 
  End With
 
  ' Jetzt den Inhalt des PropertyBags speichern
  ' Falls die Datei existiert - vorher löschen!
  If Dir$(App.Path & "\user.dat", vbNormal) <> "" Then _
    Kill App.Path & "\user.dat"
 
  F = FreeFile
  Open App.Path & "\user.dat" For Binary As #F
  Put #F, , myPropBag.Contents
  Close #F
 
End Sub
 
Private Sub Command5_Click()
Dim F As Integer
  Dim vInhalt As Variant
  Dim i As Integer
  ' Neues PropertyBag-Objekt erstellen
  Dim myPropBag As New PropertyBag
 
  ' Datei-Inhalt einlesen
  If Dir$(App.Path & "\user.dat", vbNormal) <> "" Then
    F = FreeFile
    Open App.Path & "\user.dat" For Binary As #F
    Get #F, , vInhalt
    Close #F
 
        myPropBag.Contents = vInhalt
 
        With myPropBag
 
 
            On Error Resume Next
 
 
        For i = 1 To Picture3.Count
            Set Picture3(i) = .ReadProperty("UserPic" & CStr(i), Nothing)
            Picture3(i).Width = .ReadProperty("UserPicWidth" & CStr(i), 0)
            Picture3(i).Height = .ReadProperty("UserPicHeight" & CStr(i), 0)
            Picture3(i).Left = .ReadProperty("UserPicLeft" & CStr(i), 0)
            Picture3(i).Top = .ReadProperty("UserPicTop" & CStr(i), 0)
            Picture3(i).BackColor = .ReadProperty("UserPicBackcolor" & CStr(i), _
              0)
            Picture3(i).BorderStyle = .ReadProperty("UserPicBoderstyle" & CStr( _
            i), 0)
            Picture3(i).Visible = True
      Next i
 
    End With
  End If
End Sub