You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
483 B
19 lines
483 B
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 |