Die Suchergebnisse haben mir leider nicht viel weitergeholfen, aber habe noch ein bisschen Code gefunden in dem ich nur eine Progressbar darstellen wollte
Public Class Form1
Public status As New progress
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thread As New Thread(AddressOf dowork)
progress.Show()
thread.Start()
End Sub
Private Function dowork()
For i = 1 To 100
Thread.Sleep(100)
statuschange(i)
Next
Return (0)
End Function
Delegate Sub statusdelg(ByVal progress As Integer)
Public Sub statuschange(ByVal progint As Integer)
With Me
If .InvokeRequired Then
Dim d As New statusdelg(AddressOf statuschange)
status.Invoke(d, progint)
Else
status.pb1.Value = progint
status.lbstatus.Text = progint
End If
End With
End Sub
progress ist eine Windows Forms-Klasse mit einer Progressbar namens pb1 und einem Label namens lbstatus.
Das ganze funktioniert leider überhaupt nicht und ich werd nicht schlau draus wieso
