... if oImg:Cargo!=0.and.nDelta<0 oImg:Refresh() Vrt_Dlg() endif hDC:=GetDC(oImg:hWnd) cnt:=oImg:Cargo+=iif(nDelta<0, -1, 1) StretchBlt( hDC, 0, 0, nWidth, nHeight, ; hDC, ; 30*cnt, 30*cnt, ; nWidth-(30*cnt*2), ; nHeight-(30*cnt*2), 13369376 ) oImg:ReleaseDC() endif RETURN ...