Dim TmpPic As StdPicture, BlueBrush&
Dim Temphdc&, TempOldPic&, Deskhdc&
Dim Block As RECT, Pfad1$
 
Pfad1 = "C:\EinBild.bmp"
Set TmpPic = LoadPicture(Pfad1)
 
Deskhdc = GetDC(GetDesktopWindow)
Temphdc = CreateCompatibleDC(Deskhdc)
TempOldPic = SelectObject(Temphdc, TmpPic.Handle)
Call ReleaseDC(GetDesktopWindow, Deskhdc)
BlueBrush = CreateSolidBrush(vbBlue)
With Block
  .Left = 10
  .Top = 10
  .Right = 50
  .Bottom = 30
End With
Call FillRect(Temphdc, Block, BlueBrush)
Call DeleteObject(BlueBrush)
Call SelectObject(Temphdc, TempOldPic)
Call DeleteDC(Temphdc)
SavePicture TmpPic, Pfad1

Gruss,

Zardoz