I tried writing a TransBlt function, but it doesn't really work...
VB Code:
Private Sub TransBlt(hPicture As Long, iFromX As Integer, iFromY As Integer, _ hMask As Long, iFromMaskX As Integer, iFromMaskY As Integer, hTo As Long, _ x As Integer, y As Integer, iWidth As Integer, iHeight As Integer) BitBlt hTo, x, y, iWidth, iHeight, hPicture, iFromX, iFromY, vbSrcPaint BitBlt hTo, x, y, iWidth, iHeight, hMask, iFromX, iFromY, vbSrcAnd End Sub
Where am I going wrong?![]()




Reply With Quote