Private sFrm As New frmSplash
    Private t As New Thread(AddressOf LoadThread)
    Delegate Sub LBLSetValue(ByVal lbl As Label, ByVal value As String)
 
    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        sFrm.Show() 
        Initializing = True
 
        Me.Size = New Size(My.Computer.Screen.Bounds.Size)
        Me.WindowState = FormWindowState.Maximized
        Me.ShowInTaskbar = False
        Me.BackColor = Color.DimGray
        Me.Hide()
 
        LoadProgress = "Henter data fra databasen"
        StartThread()
        ' Hier den Code um Daten von einer Database zu holen
 
 
        LoadProgress = "Checker program biblioteker"
        StartThread()
        If Not Directory.Exists(Application.StartupPath & "\Data") Then
            Directory.CreateDirectory(Application.StartupPath & "\Data")
        End If
    End Sub
 
    Private Sub StartThread()
        t = New Thread(AddressOf LoadThread)
        t.Start()
    End Sub
 
    Private Sub LoadThread()
        SetLabel(sFrm.lblProgress, LoadProgress)
    End Sub
 
    Private Sub LBLSet(ByVal lbl As Label, ByVal value As String)
        lbl.Text = value
    End Sub
 
    Private Sub SetLabel(ByVal lbl As Label, ByVal value As String)
        If lbl.InvokeRequired Then
            Dim d As New LBLSetValue(AddressOf LBLSet)
            Invoke(d, New Object() {lbl, value})
        Else
            lbl.Text = value
        End If
    End Sub