Hi Freddy,
Another way than Armin
I hope you like this one also?
Cor
\\\splash screen form2
ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Hi I Am Here"
timer1.Enabled = True
timer1.Interval = 25
Me.Opacity = 0
Me.Text = "Splash"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles timer1.Tick
Me.Opacity += 0.01
If Me.Opacity = 1 Then
Me.Close()
End If
End Sub
////
\\\form1
Private Sub Form1_Load(ByVal sender _
As Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim frm As New Form2
frm.ShowDialog()
frm.Dispose()
End Sub
///