Imports System.ComponentModel
 
Public Class Form1
    Private WithEvents bgw As New BackgroundWorker
    Private waitform As New Form
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        bgw.WorkerReportsProgress = True
        bgw.WorkerSupportsCancellation = True
        waitform.Show() 'nicht ShowDialog !!!
        'falls die form nicht so angezeigt wird wie du willst einfach ein
        My.Application.DoEvents()
        'einfügen
        bgw.RunWorkerAsync()
    End Sub
 
    Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
        'tu irgendwas
    End Sub
 
    Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.ProgressChangedEventArgs) Handles _
      bgw.ProgressChanged
        'gib den fortschritt aus z.b. als progressbar
    End Sub
 
    Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As _
      System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      bgw.RunWorkerCompleted
        waitform.Close()
    End Sub
End Class