Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
 
  Dim Inhalt As String
 
  With MSFlexGrid1
  Inhalt = .TextMatrix(.MouseRow, .MouseCol)
  .ToolTipText = ""
  If Me.TextWidth(Inhalt) > .ColWidth(.MouseCol) Then
    .ToolTipText = Inhalt
  End If
  End With
 
End Sub