Option Explicit
 
Private Bild1 As StdPicture, SW1!, SH1!
 
Private Sub Form_Load()
  Set Bild1 = LoadPicture("C:\EinBild.jpg")
End Sub
 
Private Sub Form_Resize()
  If Me.WindowState = vbMinimized Then Exit Sub
  If SW1 = Me.ScaleWidth And SH1 = Me.ScaleHeight Then Exit Sub
  With Me
    .ScaleMode = vbPixels
    SW1 = .ScaleWidth
    SH1 = .ScaleHeight
    .AutoRedraw = True
    .Cls
    .PaintPicture Bild1, 0, 0, SW1, SH1
    Set .Picture = .Image
    .Cls
    .AutoRedraw = False
  End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Set Bild1 = LoadPicture()
End Sub

Gruss,

Zardoz