Private Sub Grd_OnMouseMove(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal Button As Integer, ByVal Shift As Integer, sToolTip As String)
 
  ' ToolTips
  With Grd
    .ToolTipTitle = .Columns(nCol).Caption
    sToolTip = "hallo"
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de