Initial commit

BL_Aushaendigungen/DokSA/frmFortschritt.vb

@@ -0,0 +1,19 @@
+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