Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Declare Function GetDesktopWindow& Lib "user32" ()
Private Declare Function GetDC& Lib "user32" (ByVal hwnd&)
Private Declare Function ReleaseDC& Lib "user32" (ByVal hwnd&, ByVal hdc&)
Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd&, lpRect As _
  RECT)
Private Declare Function SetStretchBltMode& Lib "gdi32" (ByVal hdc&, ByVal _
nStretchMode&)
Private Declare Function StretchBlt& Lib "gdi32" (ByVal hdc&, ByVal x&, ByVal _
y&, _
  ByVal nWidth&, ByVal nHeight&, ByVal hSrcDC&, ByVal xSrc&, ByVal ySrc&, _
  ByVal nSrcWidth&, ByVal nSrcHeight&, ByVal dwRop&)
Private Declare Function SetBrushOrgEx& Lib "gdi32" (ByVal hdc&, _
  ByVal nXOrg&, ByVal nYOrg&, lppt As POINTAPI)
 
Private Const HALFTONE& = 4

.ScaleMode = vbPixels

Gruss,

Zardoz

Beitrag wurde zuletzt am 16.05.10 um 23:08:07 editiert.