Display A Splash Screen Which Fades In And Then Fades Out And Closes Itself Leaving The Ap Showing

I am trying to display a splash screen which fades in and then fades out and closes itself leaving the ap showing. I have utilized code that I found wih permission to use but I'm still doing something wrong.

Option Explicit
'// This Userform code has everything you need to make a captionless userform
'// Fade In & Out

'// Transparency
Private Declare Function SetLayeredWindowAttributes _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long

'// Title Bar
Private Declare Function GetWindowRect _
Lib "user32" ( _ ..............................