Public Sub bild_anzeigen() 
  With Haupt.Picture1 
    .AutoRedraw = True
 
    If Haupt.txt_bild = "" Then 
      .PaintPicture LoadPicture(App.Path & "\nocover.jpg"), 0, 0, _ 
        .ScaleWidth, .ScaleHeight 
    Else 
      .PaintPicture LoadPicture(Haupt.txt_bild.Text), 0, 0, _ 
        .ScaleWidth, .ScaleHeight 
    End If
 
    .AutoRedraw = False 
    .Picture = .Image
  End With 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de