Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles DataGrid1.CurrentCellChanged
        RowIndex1 = DataGrid1.CurrentRowIndex.ToString
        lesen = New Vorlesen
        Dim threadInhaltVorlesen As New Threading.Thread(AddressOf _
          lesen.InhaltRow(RowIndex1))
        threadInhaltVorlesen.Start()
    End Sub
 
' hier die methode InhaltRow:
Public Sub InhaltRow(ByVal RowIndex As Integer)

1 + 1 = 3 , fuer hinreichend gro?e 1.