Private Sub DrawTheThing()
ScaleMode = 3 'PIXELS: BitBlt needs 'em
'get Descktop
dskTop = GetDesktopWindow()
dskTopDC = GetDC(dskTop)
PicWidth = Picture1.Width
PicHeight = Picture1.Height
picX = Form1.Left / Screen.TwipsPerPixelX 'I need pixels once more
picY = Form1.Top / Screen.TwipsPerPixelY ': position on window
Form1.Hide
'pause to hide window?
DoEvents
Form1.Refresh
'1)get background from desktop; 2) AND mask; 3) OR image
t = BitBlt(Picture1.hDC, 0, 0, PicWidth, PicHeight, dskTopDC, picX, picY, SRCCOPY)
t = BitBlt(Picture1.hDC, 0, 0, PicWidth, PicHeight, mask.hDC, 0, 0, SRCAND)
t = BitBlt(Picture1.hDC, 0, 0, PicWidth, PicHeight, MainPicture.hDC, 0, 0, SRCPAINT)
'and show if after
Form1.Visible = 1
Form1.Refresh
End Sub