' ------- Fortschrittbalken 
    ' -------------------------------------------------------------------------
    ' -------
    Dim Breite_A As Integer   'Double
    Dim Breite_B As Integer   'Double = 0
    Dim Rechteck As Rectangle
    Private Sub PicStatus_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PicStatus.Paint
 
        If Gesamtseiten > 0 Then
            ' Größe der Form
 
           Rechteck = New Rectangle(0, 0, Breite_B + 1, Me.PicStatus.Height)
 
            If Me.lblExemplare_pro_Paket.Text = "Exemplare pro Paket" Then  ' 
            ' Falzauslage
                Dim oBrush As New LinearGradientBrush(Rechteck, Color.Black, _
                  Color.Blue, LinearGradientMode.Horizontal)
                e.Graphics.FillRectangle(oBrush, Rechteck)
            Else
                Dim oBrush As New LinearGradientBrush(Rechteck, Color.Black, _
                  Color.Red, LinearGradientMode.Horizontal)
                e.Graphics.FillRectangle(oBrush, Rechteck)
            End If
 
 
        End If
 
 
    End Sub
    Private Sub berechnen()
 
        If Gesamtseiten > 0 Then
            Breite_B = ((Breite_A / Anzahl) * Seite)
        End If
 
    End Sub
    ' -------------------------------------------------------------------------
    ' ----------------------------------

Hänk

(Wer früh aufsteht hat mehr vom Tag)