Public Class frmprogress

    Dim min As Integer

    Sub New(ByVal min As Integer, ByVal max As Integer, ByVal titel As String)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.ProgressBar1.Minimum = min
        Me.ProgressBar1.Maximum = max
        Me.titel.Text = titel
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub frmprogress_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Public Sub Init_Progressbar(ByVal min As Integer, ByVal max As Integer, Optional titel As String = "")
        Me.ProgressBar1.Minimum = min
        Me.ProgressBar1.Maximum = max
        If titel <> "" Then Me.titel.Text = titel
        Me.ProgressBar1.Value = min
    End Sub
End Class