Public Class frmFortschritt
   

    Dim WithEvents tim As New Windows.Forms.Timer

    Private Sub frmFortschritt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tim.Start()
    End Sub

    'Public Sub timtick() Handles tim.Tick
    '    Try
    '        Me.progressBar1.Value = Me.progressBar1.Value + 1

    '    Catch ex As Exception
    '        Me.progressBar1.Value = 1
    '    End Try
    '    System.Threading.Thread.Sleep(100)
    'End Sub
End Class