Private Sub Command1_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.Text = bild1
   Picture1.Picture = LoadPicture(bild1)
undfertig:
   Exit Sub
ErrHandler:
   MsgBox ("Abbruch oder Laden mißlungen, Daten überprüfen")
   Resume undfertig
End Sub