Public currRow as Long ' verlassene Zeile
...
currRow = 1
...
Private Sub saturationTable_OnMouseMove( _
  ByVal nRow As Long, _
  ByVal nCol As Long, _
  ByVal Button As Integer, _
  ByVal Shift As Integer, _
  sToolTip As String _
)
 
  If (currRow Mod 5 = 0) Then
    ' Hintergrundfarbe einer verlassenen 5. Zeile gelb 
    Me.saturationTable.ListItems(currRow).BackColor = vbYellow
  Else
    ' Hintergrundfarbe der verlassenen Zeile weiss
    Me.saturationTable.ListItems(currRow).BackColor = RGB(255, 255, 255)
  End If
 
  currRow = nRow ' verlassene Zeile = aktuelle Zeile
 
  ' Aktuelle MouseOver-Zeile blau
  Me.saturationTable.ListItems(nRow).BackColor = RGB(168, 198, 255)
 
End Sub