Public Class startwindow
    Private Delegate Sub ShowProgressDelegate( _
            ByVal percent As Integer)
 
    Public Sub ShowProgress(ByVal percent As Integer)
 
        If Me.InvokeRequired Then
            Me.Invoke(New ShowProgressDelegate( _
            AdressOf, ShowProgress), New Object() {percent})
        Else
            LBLProgress.Text = percent.ToString("0") & " %"
            ProgressBar1.Value = percent
        End If
    End Sub
End Class

Liebe Gr??e,
Danke im voras!

S?ren

Ein guter Rutsch ins neue Jahr!