Private Sub sevGrid1_OnMouseMove(ByVal nRow As Long, ByVal nCol As Long, _
         ByVal Button As Integer, ByVal Shift As Integer, sToolTip As String)
    With sevGrid1
 
      .ToolTipTitle = .Columns(nCol).Caption
 
      Tooltext  = .Text(nRow, nCol)
      i = Len(Tooltext)
      If i > 600 Then Tooltext = Left(Tooltext, 600) & " . . . "
      sToolTip = Tooltext
     End With
End Sub