Sub Rechnen
 
DeinScreen. Ready = False
BW.RunWorkerAsync()
 
 
 
DeineBerechnung
 
DeinScreen.Ready = True
 
End Sub

Private Sub BW_DoWork(ByVal sender As Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles BW.DoWork
DeinScreen.show
 
End Sub

Gruß
Christoph