Private Sub Grid1_ColumnMouseMove(ByVal nCol As Long, sToolTip As String, _
  BalloonTip As Boolean, ToolTipTitle As String, ToolTipIcon As _
  sevDataGrid2.sevGridToolTipIcon)
  ' Titelzeilen-Text
  ToolTipTitle = "Info zur Autosort-Funktion"
 
  ' ToolTip-Text
  sToolTip = "Klicken Sie auf einen Spaltenbezeicher, um den Inhalt " & _
    "des DataGrids nach dieser Spalte zu sortieren." & vbCrLf & _
    "Drücken Sie gleichzeitig die Strg-Taste, um die Spalte der " & _
    "der aktuellen Sortierfolge hinzuzufügen."
 
  ' Icon
  ToolTipIcon = ttInfoIcon
 
  ' Balloon-Tip anzeigen
  BalloonTip = False
End Sub