Option Explicit
 
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
   If index = 1 Then
        bild1 = cmdialog1.FileName
        Text1(8).Text = bild1
        Picture1(index).Picture = LoadPicture(bild1)
    Else
        bild2 = cmdialog1.FileName
        Text1(9).Text = bild2
        Picture1(index).Picture = LoadPicture(bild2)
   End If
undfertig:
   Exit Sub
ErrHandler:
   MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
   Resume undfertig
End Sub