Private Sub MSFlexGrid1_Click()
  Dim nRow As Long
  Dim nCol As Long
  Dim sLine As String
 
  With MSFlexGrid1
    nRow = .MouseRow
    If nRow >= 0 Then
      For nCol = 0 To .Cols - 1
        sLine = sLine & .TextMatrix(nRow, nCol) & vbTab
      Next nCol
      Text1.Text = sLine
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de