Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Me.BackgroundWorker1.WorkerReportsProgress = True
      Me.BackgroundWorker1.RunWorkerAsync()
   End Sub
 
   Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e _
     As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
      For x As Integer = 1 To 10
         ' ****** Fehler ******
         'Me.TextBox1.Text = x.ToString
 
         Me.BackgroundWorker1.ReportProgress(1, x)
         System.Threading.Thread.Sleep(200)
      Next
   End Sub
 
   Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal _
     e As System.ComponentModel.ProgressChangedEventArgs) Handles _
     BackgroundWorker1.ProgressChanged
      Dim temp As Integer = CType(e.UserState, Integer)
 
      Me.TextBox1.Text = temp.ToString
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control