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
 
   Select Case Index
   Case 0
      bild1 = CmDialog1.FileName
      Text1(8).Text = bild1
      Picture1(Index).Picture = LoadPicture(bild1)
   Case 1
      bild2 = CmDialog1.FileName
      Text1(9).Text = bild2
      Picture1(Index).Picture = LoadPicture(bild2)
   End Select
undfertig:
   Exit Sub
ErrHandler:
   MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
   Resume undfertig
 
End Sub