Private Sub saturationTable_OnMouseMove( _
  ByVal nRow As Long, _
  ByVal nCol As Long, _ 
  ByVal Button As Integer, _
  ByVal Shift As Integer, _
  sToolTip As String _
)
 
Dim n As Long
 
  ' Hintergrundfarbe aller Zeilen weiss
  For n = 1 To 50
    Me.saturationTable.ListItems(n).BackColor = RGB(255, 255, 255)
  Next n
 
  ' Hintergrundfarbe jeder 5. Zeile gelb
  For n = 5 To 50 Step 5
    Me.saturationTable.ListItems(n).BackColor = vbYellow
  Next n
 
  ' Aktuelle MouseOver-Zeile blau
  Me.saturationTable.ListItems(nRow).BackColor = RGB(168, 198, 255)
 
End Sub