Public Class MSSOFT_ProgressBar
    Private MS_ProgressBarMax As Integer = Me.Width
    Private MS_ProgressBarAktuell As Integer = 0
 
 
    Private Sub MS_ProgressBar_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Resize
        With ProgressBack
            .Left = 0
            .Top = 0
            .Width = Me.Width
        End With
        MS_ProgressBarMax = Me.Width
    End Sub
 
    Public ReadOnly Property AktuellerWertRead() As Integer
        Get
            Return MS_ProgressBarAktuell
        End Get
    End Property
    Public Sub AktuellerWertSet(ByVal GewuenschterWert As Integer)
        If GewuenschterWert < 0 Then
            MS_ProgressBarAktuell = 0
        ElseIf GewuenschterWert > MS_ProgressBarMax Then
            MS_ProgressBarAktuell = MS_ProgressBarMax
        Else
            MS_ProgressBarAktuell = GewuenschterWert
        End If
        Aktualisieren()
    End Sub
 
    Private Sub Aktualisieren()
        Me.ProgressFront.Width = MS_ProgressBarAktuell
    End Sub
End Class