Private Sub P4_CMB_Durchlauf_Click(ByVal sender As System.Object, _
                                       ByVal e As System.EventArgs) Handles _
                                       P4_CMB_Durchlauf.Click
 
            'Testdurchlauf
            ProgressVonBis(100)
    End Sub
'...
    Public Sub ProgressVonBis(ByVal bis As Integer)
        Try
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = bis
            Dim x As Integer
            For x = 1 To bis
                ProgressBar1.Value = x
            Next x
 
            'ProgressBar1.Refresh()
            'ProgressBar1.Update()
 
 
        Catch ex As System.Exception
            MsgBox("Problem:" & vbCrLf & ex.Message)
        End Try
    End Sub

mfg.

Dirk