'Das gleiche hab ich noch für Picture2 + 3
Private Sub Picture1_Click() 
Dim bild1 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.Picture = LoadPicture(bild1)
undfertig:
   Exit Sub
ErrHandler:
   MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
   Resume undfertig
End Sub
 
Private Sub Picture1_Change()
 
With Picture1
  .AutoRedraw = True
  .Cls
  .PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
  .AutoRedraw = False
End With
 
End Sub
 
Function picup()
 
If Text1(8).DataChanged = True Then
Picture1.Picture = LoadPicture(Text1(8).Text)
Picture1.Refresh
End If
 
If Text1(9).DataChanged = True Then
Picture2.Picture = LoadPicture(Text1(9).Text)
Picture2.Refresh
End If
 
If Text1(10).DataChanged = True Then
Picture3.Picture = LoadPicture(Text1(10).Text)
Picture3.Refresh
End If
 
End Function