Jobs
Author: Lionheart Date Submitted: 4/11/2005 Category: Graphics Compatibility: VB 6 This code has been accessed 7882 times.
Email Yourself this snippet:
Private Declare Function OffsetClipRgn Lib "gdi32" Alias "OffsetClipRgn" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Dim leon as long dim tidus as long dim yuna as long
Code
tidus = (me.width / screen.TwipsperPixelX) + 2000 yuna = (me.height/ screen.twipsperpixelY) + 2000 leon = OffSetClipRgn(me.hdc,tidus,yuna) SetWindowRgn (me.hwnd,leon,true)
