Private Declare Function BitBlt& Lib "gdi32" (ByVal hdcDest&, ByVal XDest&, _
  ByVal YDest&, ByVal nWidth&, ByVal nHeight&, ByVal hDCSrc&, ByVal xSrc&, _
  ByVal ySrc&, ByVal dwRop&)
Private Declare Function DeleteDC& Lib "gdi32" (ByVal hdc&)
Private Declare Function SelectObject& Lib "gdi32" (ByVal hdc&, ByVal hObject&)
Private Declare Function CreateCompatibleDC& Lib "gdi32" (ByVal hdc&)
 
Private Sub Form_Load()
 
Dim Breite&, Hoehe&, TmpPic As StdPicture, P1hdc&, P1OldPic&
 
Set TmpPic = LoadPicture("C:\EinBild.jpg")
With Me
  .ScaleMode = vbPixels
  .AutoRedraw = True
  Breite = CLng(.ScaleX(TmpPic.Width, vbHimetric, vbPixels))
  Hoehe = CLng(.ScaleY(TmpPic.Height, vbHimetric, vbPixels))
  P1hdc = CreateCompatibleDC(.hdc)
  P1OldPic = SelectObject(P1hdc, TmpPic.Handle)
  Call BitBlt(.hdc, (.ScaleWidth - Breite) \ 2, (.ScaleHeight - Hoehe) \ 2, _
    Breite, Hoehe, P1hdc, 0&, 0&, vbSrcCopy)
  .Refresh
End With
Call SelectObject(P1hdc, P1OldPic)
Call DeleteDC(P1hdc)
 
End Sub

Gruss,

Zardoz