Easy Alpha Blend One line of code
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
This will alpha blend your form when its unloaded cool effect thats alreayd built into windows, i couldn't find anything with the keyword alpha blend that used the AnimateWindow API, so i thought i would
Original Author: Joseph Simpson
Code
In Your General Section Include This:
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Const AW_HIDE = &H10000
Private Const AW_BLEND = &H80000
On Form_Unload put:
fd = AnimateWindow(Form1.hwnd, 1000, AW_BLEND + AW_HIDE)
End
This will blend your form to whats behind it as long as its the top window. you must include End also without it, it will just hide your program.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.