Private Sub Picture1_Click(index As Integer)
On Error GoTo ErrHandler
   CmDialog1.Filter = "JPEG-Bilder(*.jpg)|*.jpg"
   CmDialog1.Flags = &H1000&
   CmDialog1.Action = 1
   bild1 = CmDialog1.FileName
   Text10(index).Text = bild1
   Picture1(index).Picture = LoadPicture(bild1)
undfertig:
   Exit Sub
ErrHandler:
   MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
   Resume undfertig
End Sub
 
Private Sub Picture1_Change(index As Integer)
With Picture1(index)
  .AutoRedraw = True
  .Cls
  .PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
  .AutoRedraw = False
End With
End Sub