Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
         Handles Button1.Click
        Try
            With StatusBarFortschritt
                .Minimum = 0
                .Value = 0
                .Maximum = 19
                .Visible = True
            End With
 
            For i As Integer = 0 To (19 - 1)
                System.Threading.Thread.Sleep(100)
                StatusBarFortschritt.Value = (i + 1)
            Next i
 
            StatusBar.Refresh()
            System.Threading.Thread.Sleep(500)
            StatusBarFortschritt.Visible = False
        Catch ex As Exception
        End Try
    End Sub
End Class