19 lines
483 B
Plaintext
19 lines
483 B
Plaintext
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 |