diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index ece87c9dc..d0798715d 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -15120,12 +15120,14 @@ var
   ScrollLines: DWORD;
   RTLFactor: Integer;
   WheelFactor: Double;
-
+  State: TShiftState;
 begin
   //todo: rename to WM*
   {$ifdef DEBUG_VTV}Logger.EnterMethod([lcScroll],'CMMouseWheel');{$endif}
   StopWheelPanning;
 
+  State := KeysToShiftState(Message.Button);
+
   inherited WMMouseWheel(Message);
 
   if Message.Result = 0  then