03-01-2007, 09:40 PM
Ok now I got it when you move it it shows something different but its still not what your right over.. I dont see why its not...
I updated the picture above. Its how I have it now.
Code:
Private Sub hsAlphaBlend_Change()
picMainMenu.Picture = picMainMenu.Picture
With BF
.BlendOp = AC_SRC_OVER
.BlendFlags = 0
.SourceConstantAlpha = 75
.AlphaFormat = 0
End With
RtlMoveMemory lBF, BF, 4
AlphaBlend picMainMenu.hdc, 0, 0, picMainMenu.ScaleWidth, picMainMenu.ScaleHeight, picScreen.hdc, picMainMenu.top, picMainMenu.Left, picMainMenu.ScaleWidth, picMainMenu.ScaleHeight, lBF
picMainMenu.Refresh
End Sub
I updated the picture above. Its how I have it now.