Private Sub Picture1_Click(index As Integer)
Dim bild1 As String
Dim bild2 As String
 
On Error GoTo ErrHandler
   CmDialog1.Filter = "JPEG-Bilder(*.jpg)|*.jpg"
   CmDialog1.Flags = &H1000&
   CmDialog1.Action = 1
 
   bild1 = CmDialog1.FileName
   Text1(8).Text = bild1
   Picture1(index).Picture = LoadPicture(bild1)
 
   bild2 = CmDialog1.FileName
   Text1(9).Text = bild2
   Picture1(index).Picture = LoadPicture(bild2)
 
undfertig:
   Exit Sub
ErrHandler:
   MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
   Resume undfertig
End Sub