Splash Screen with fade in and fade out

[Peter Alien]

Can someone tell me where can i put some code to make a splash screen with fade in and fade out ?

i tried to put the code inside the Form_Load event, but it won´t work.

[Andy]

here is a routine I wrote so that my form will fade when it loses focus to another window. Adapt it so that it can be used in your app. the key is to use the "deactivate" and "activate" events. Let me know if you still need help.

Private Sub fclsCallsLogger_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
 
Dim x As Decimal
        Do While Me.Opacity > 0.5
            Me.Refresh()
            Me.Opacity -= 0.05
            For x = 1 To 100000
            Next x
        Loop
    End Sub

[Peter Alien]

Many thanks ThePhantom, i just got it and with a Pause command:



Imports Microsoft.VisualBasic.DateAndTime

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Sub Pause(ByVal Segundos_de_Pausa As Byte)
REM Faz uma pausa na execução da Aplicação.
REM A Função "Timer" pertence ao Módulo "Microsoft.VisualBasic.DateAndTime", e, indica o tempo decorrido desde a Meia-Noite.
Dim Tempo_Final As Double
Tempo_Final = Timer + Segundos_de_Pausa
Do While Timer < Tempo_Final
Loop
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
REM Carrega a "Form1" para a memória e para o ecrán.
Dim I As Double
Me.Show()
'Cria um Splash Screen com Fade In - Fade Out.
For I = 0 To 1 Step 0.01
Me.Opacity = I
Next I
Call Pause(5)
For I = 1 To 0 Step -0.01
Me.Opacity = I
Next I
Me.Hide()
Call Pause(2)
Me.BackgroundImage = Nothing
Me.BackColor = BackColor.SlateGray
Me.Show()
For I = 0 To 1 Step 0.01
Me.Opacity = I
Next I
End Sub

End Class