Dim maxValue As Integer = 1000000
            Dim progress As frmProgress = New frmProgress(maxValue)

            progress.Show(Me)

            For i As Integer = 1 To maxValue
                progress.FrmProgressControl.PerformStep(i)
            Next

Public Class frmProgressControl

    Public Sub New()

        InitializeComponent()

    End Sub

    Property MaximumValue() As Integer
        Get
            Return Me.ProgressBarControl.Properties.Maximum
        End Get
        Set(ByVal Value As Integer)
            Me.ProgressBarControl.Properties.Maximum = Value
        End Set
    End Property

    Property StepValue() As Integer
        Get
            Return Me.ProgressBarControl.Properties.Step
        End Get
        Set(ByVal Value As Integer)
            Me.ProgressBarControl.Properties.Step = Value
        End Set
    End Property

    Public Sub PerformStep(LabelValue As String)
        Me.Label.Text = LabelValue
        Me.ProgressBarControl.PerformStep()

        Me.ProgressBarControl.Update()
        Me.Label.Update()
    End Sub
End Class