Private Sub MSFlexGrid1_MouseMove(Button As Integer, _
  Shift As Integer, x As Single, y As Single)
 
  ' ToolTip aktualisieren
  Static nRow As Long
  Static nCol As Long
 
  If Button = 0 Then
    With MSFlexGrid1
      If .MouseRow + 1 <> nRow Or .MouseCol + 1 <> nCol Then
        nRow = .MouseRow + 1
        nCol = .MouseCol + 1
        .ToolTipText = .TextMatrix(.MouseRow, .MouseCol)
      End If
    End With
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de