Private Sub frmHauptfenster_Shown(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.Shown
        My.Application.BegrSchirmHide()
End Sub

Imports System.Threading
Namespace My
    Partial Friend Class MyApplication
        Dim T As New Thread(AddressOf BegrSchirmShow)
 
        Protected Overrides Function OnInitialize(ByVal commandLineArgs As _
          System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As _
          Boolean
            T.SetApartmentState(ApartmentState.STA)
            T.Priority = ThreadPriority.Highest
            T.Start()
            Return MyBase.OnInitialize(commandLineArgs)
        End Function
 
        Protected Overrides Sub OnShutdown()
            T.Abort()
            MyBase.OnShutdown()
        End Sub
 
        Sub BegrSchirmShow()
            StartWindow.TopMost = True
            StartWindow.ShowDialog()
        End Sub
 
        Public Sub BegrSchirmHide()
            Dim i As Double
            For i = 1000000 To 1 Step -1
                StartWindow.Opacity = i / 1000000
            Next
            T.Abort()
        End Sub
    End Class
End Namespace