Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Application.EnableVisualStyles()   ' Windows XP-Style aktivieren
 
 
            Dim BG As Begrüßung = New Begrüßung
            BG.lblVersion.Text = Version
            BG.Refresh()
            BG.Show()
            ...

            BG.berechnen(1, "Programmparameter laden")
            Call laden_Programmparameter()
            BG.berechnen(2, "Arbeitszeiten ermitteln")
            Call Laden_Arbeitszeiten(Date.Now.ToShortDateString, "Früh")
            BG.berechnen(3, "KW berechnen")
            ...

    ' ------- Fortschrittbalken -------------------------------------------
    Private Sub Balken_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Balken.Paint
 
        If Gesamtseiten > 0 Then
 
            Rechteck = New Rectangle(0, 0, Breite_B + 1, Me.Balken.Height)
 
            oBrush = New LinearGradientBrush(Rechteck, Color.Black, Color.Blue, _
              LinearGradientMode.Horizontal)
            e.Graphics.FillRectangle(oBrush, Rechteck)
        End If
 
    End Sub
    Public Sub berechnen(ByVal Seite As Integer, ByVal was As String)
 
        If Gesamtseiten > 0 Then
            Breite_B = ((Breite_A / Gesamtseiten) * Seite)
        End If
 
        Me.lblAktion.Text = was
        Me.Refresh()
 
    End Sub

Hänk

(Wer früh aufsteht hat mehr vom Tag)