Form Fade In/Out

[isladogs]

Someone sent me code to allow a form to fade in on load and fade out on close.
He/she offered it as a possible addition to my Attention Seeking example database.
Unfortunately I can't remember who it was.

Attached is an example using a slightly modified version of the code supplied.
Could the original author please contact me so I can acknowledge them....

EDIT
IIRC, the same person also sent me code for creating rounded corners on forms. Purely as a visual effect with no other purpose.
As an extreme example, you can even create circular forms if that rocks your boat!
If anyone is interested, I'll upload an example of that code as well.

 

[Uncle Gizmo]

Just Giving this a Bump...

 

[JonXL]

Would love to see the rounded corner code.

 

[arnelgp]

even the Option Compare Text is the same.
see the attribution.

Option Explicit
Option Compare Text
Option Private Module

'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net

'But somewhat modified by me.

Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000

'*Constants for SetLayeredWindowAttributs
Private Const LWA_COLORKEY As Long = 1

Private Declare PtrSafe Function GetWindowLong Lib "user32" _
                                       Alias "GetWindowLongA" (ByVal hwnd As Long, _
                                                               ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowLong Lib "user32" _
                                       Alias "SetWindowLongA" (ByVal hwnd As Long, _
                                                               ByVal nIndex As Long, _
                                                               ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function SetWindowOpacity Lib "user32" _
                                          Alias "SetLayeredWindowAttributes" (ByVal hwnd As Long, _
                                                                              ByVal crKey As Long, _
                                                                              ByVal bAlpha As Byte, _
                                                                              ByVal dwFlags As Long) As Long

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)

 

[CJ_London]

Pretty sure Stephen Lebans provided much of the original code for this and other graphics tricks

 

[isladogs]

Attached is a modified version of the demo app that was originally sent to me by Jason Hayes for possible inclusion in my AttentionSeeking app..
Many thanks, Jason ...not sure if you are an AWF member

This is one of the 2 forms Jason sent me with all corners rounded:

NOTE: There is no close button. Click the footer section instead

I added this circular form whilst playing with the code.

Definitely not very practical but might grab users' attention?

After checking my emails, I had forgotten that Jason wasn't the author.
We agreed in an email exchange last April that it probably was Stephen Lebans as @CJ_London suggested.

I've tried to check the site www.allapi.net mentioned by @arnelgp but the site doesn't load.

Anyway, see attached if you are interested in playing with the code.

 

[arnelgp]

how about shaped form with transparent
background.

 

[NauticalGent]

You guys a scary-impressive....