VB6 用API滤色+半透明

我暂时也只能写出这么多代码，主要是意思不太明确“高速运用”是指什么？

Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal hHeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal blendFunction As Long) As Long

Private Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal x1 As Long, ByVal y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long

'下面的代码一个是设置透明度，另一个是设置滤色，叠加以后写到窗体上，百度HI一下吧

Private Sub Command1_Click()

GdiTransparentBlt Me.hDC, 0, 0, 100, 100, Picture2.hDC, 0, 0, 100, 100, RGB(255, 255, 255)

AlphaBlend Me.hDC, 0, 0, 100, 100, Picture1.hDC, 0, 0, 100, 100, 200 * &H10000

End Sub