Delegate Sub bgh(ByVal stringNumber As Integer)
 
Public Class Form1
 
    Private Sub logOutputHandling(ByVal strNmb As Integer)
 
        Select Case strNmb
            Case 1
                tb_log.SelectionStart = Len(tb_log.Text)
                tb_log.SelectedText = "[Echtzeitlog]"
            Case 2
                tb_log.SelectionStart = Len(tb_log.Text)
                tb_log.SelectedText = vbNewLine & "[" & Format(DateTime.Now, _
                  "hh" & ":" & "mm" & ":" & "ss") & "]: Start der Referenzfahrt"
            Case 3
                tb_log.SelectionStart = Len(tb_log.Text)
                tb_log.SelectedText = vbNewLine & "[" & Format(DateTime.Now, _
                  "hh" & ":" & "mm" & ":" & "ss") & "]: Referenzfahrt" & _
                  "abgeschlossen"
        End Select
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        BackgroundWorker_textlog.RunWorkerAsync()
    End Sub
 
    Private Sub BackgroundWorker_textlog_DoWork(ByVal sender As System.Object, _
      ByVal e As System.ComponentModel.DoWorkEventArgs) Handles _
      BackgroundWorker_textlog.DoWork
        Dim handling As bgh
        handling = AddressOf logOutputHandling
        handling.Invoke(1)
    End Sub
 
End Class