Private sub sevGrid_StartScrollBarMove(nToolTipCol As Long, nToolTipWidth As _
  Long)
  nToolTipCol = 3: nToolTipWidth = 180
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Private Sub Grid1_OnScrollBarMove(ByVal nScrollBar As Integer, ByVal nRow As _
  Long, ByVal nDesc As Integer, sToolTip As String)
  If nScrollBar = 0 Then
    sToolTip = " .... "
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de