[dyr_farot]

а это зависит от того, в чем пишеш...

для делфей: ( но перенести, думаю, не проблема )

procedure TForm1.Button1Click(Sender: TObject);	
var	
  DeskTop: TCanvas;	
begin	
  DeskTop := TCanvas.Create;	
  try	
    with DeskTop do	
      Handle := DC;	
    with PaintBox1.Canvas do	
      CopyRect(Rect(0, 0, 100, 100),	
        DeskTop,	
        Rect(0, 0, 100, 100))	
  finally	
    DeskTop.Free;	
  end	
end;