Dim Thread1 As New Threading.Thread(AddressOf frmWait.Showdialog)

Public Class MainClass
    Shared Sub Main()
 
        Dim s1 As String = "Daten wird geladen."
 
        Dim frmWait As New frmWaiting(s1)
        Dim Thread1 As New Threading.Thread(AddressOf frmWait.Show)
 
        Thread1.Start()
 
       dim myDal as new Datenlayer    'dauert recht lang
 
       Thread1.Join()
        Thread1.Abort()
 
        Application.Run(New frmHauptprogramm(myDAL))
        Application.Exit()
 
    End Sub
End Class

Micke