MDIForm1.CD1.InitDir = "C:\"
wei4:
    MDIForm1.CD1.DialogTitle = "Explora.Pc´s Software"
    MDIForm1.CD1.CancelError = True
    MDIForm1.CD1.Filter = "Bmp, Jpg ,Gif|*.bmp;*.jpg;*.Gif|(*.*)|*.*|"
 On Error GoTo c1
    MDIForm1.CD1.ShowOpen
 
    Image2.Picture = LoadPicture(MDIForm1.CD1.FileName)
    Picture2.Picture = Image2.Picture
c1:
Exit Sub

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm