Private Sub sevGrid1_columnMouseMove(ByVal nCol As Long, sToolTip As String, _
   BalloonTip As Boolean, ToolTipTitle As String, ToolTipIcon As _
   sevDataGrid2.sevGridToolTipIcon)
 
   With sevGrid1
   ' Titelzeilen-Text
      If nCol = .GetCol("ART") Then
       .ToolTipTitle = .Columns(nCol).Caption
       sToolTip = "Mit Doppelklich kann die Artbezeichnung ausgewählt werden."
        '.ToolTipBackColor = SysColorToRGB(&H80000013)
        '.ToolTipTextColor = SysColorToRGB(&H80000017)
      End If
   End With
     BalloonTip = True
     ToolTipIcon = ttInfoIcon
End Sub