diff --git a/components/tvplanit/images/components/VpDownArrow.png b/components/tvplanit/images/components/VpDownArrow.png
new file mode 100644
index 000000000..832f72e40
Binary files /dev/null and b/components/tvplanit/images/components/VpDownArrow.png differ
diff --git a/components/tvplanit/images/components/VpDownArrow_150.png b/components/tvplanit/images/components/VpDownArrow_150.png
new file mode 100644
index 000000000..475d2e0de
Binary files /dev/null and b/components/tvplanit/images/components/VpDownArrow_150.png differ
diff --git a/components/tvplanit/images/components/VpDownArrow_200.png b/components/tvplanit/images/components/VpDownArrow_200.png
new file mode 100644
index 000000000..f388feee7
Binary files /dev/null and b/components/tvplanit/images/components/VpDownArrow_200.png differ
diff --git a/components/tvplanit/images/components/VpUpArrow.png b/components/tvplanit/images/components/VpUpArrow.png
new file mode 100644
index 000000000..1615a76f9
Binary files /dev/null and b/components/tvplanit/images/components/VpUpArrow.png differ
diff --git a/components/tvplanit/images/components/VpUpArrow_150.png b/components/tvplanit/images/components/VpUpArrow_150.png
new file mode 100644
index 000000000..ac2c6b903
Binary files /dev/null and b/components/tvplanit/images/components/VpUpArrow_150.png differ
diff --git a/components/tvplanit/images/components/VpUpArrow_200.png b/components/tvplanit/images/components/VpUpArrow_200.png
new file mode 100644
index 000000000..269801b20
Binary files /dev/null and b/components/tvplanit/images/components/VpUpArrow_200.png differ
diff --git a/components/tvplanit/images/regbasepng_files.txt b/components/tvplanit/images/regbasepng_files.txt
index 695ae1c27..6c5af17a5 100644
--- a/components/tvplanit/images/regbasepng_files.txt
+++ b/components/tvplanit/images/regbasepng_files.txt
@@ -61,3 +61,11 @@ components/VpRevert32.png
 components/VpToday16.png
 components/VpToday24.png
 components/VpToday32.png
+
+components/VpUpArrow.png
+components/VpUpArrow_150.png
+components/VpUpArrow_200.png
+
+components/VpDownArrow.png
+components/VpDownArrow_150.png
+components/VpdownArrow_200.png
diff --git a/components/tvplanit/laz_visualplanit.lpk b/components/tvplanit/laz_visualplanit.lpk
index c445ee14d..76d126069 100644
--- a/components/tvplanit/laz_visualplanit.lpk
+++ b/components/tvplanit/laz_visualplanit.lpk
@@ -32,295 +32,291 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
 
 Contributor(s): "/>
     <Version Major="1" Release="9"/>
-    <Files Count="72">
+    <Files Count="71">
       <Item1>
         <Filename Value="source\vpbase.pas"/>
         <UnitName Value="VpBase"/>
       </Item1>
       <Item2>
-        <Filename Value="source\vpbase.res"/>
-        <Type Value="Binary"/>
-      </Item2>
-      <Item3>
         <Filename Value="source\vpbaseds.pas"/>
         <UnitName Value="VpBaseDS"/>
-      </Item3>
-      <Item4>
+      </Item2>
+      <Item3>
         <Filename Value="source\vpbasepainter.pas"/>
         <UnitName Value="VpBasePainter"/>
-      </Item4>
-      <Item5>
+      </Item3>
+      <Item4>
         <Filename Value="source\vpbufds.pas"/>
         <UnitName Value="VpBufDS"/>
-      </Item5>
-      <Item6>
+      </Item4>
+      <Item5>
         <Filename Value="source\vpconst.pas"/>
         <UnitName Value="VpConst"/>
-      </Item6>
-      <Item7>
+      </Item5>
+      <Item6>
         <Filename Value="source\vpdata.pas"/>
         <UnitName Value="VpData"/>
-      </Item7>
-      <Item8>
+      </Item6>
+      <Item7>
         <Filename Value="source\vpdbds.pas"/>
         <UnitName Value="VpDBDS"/>
-      </Item8>
-      <Item9>
+      </Item7>
+      <Item8>
         <Filename Value="source\vpexception.pas"/>
         <UnitName Value="VpException"/>
-      </Item9>
-      <Item10>
+      </Item8>
+      <Item9>
         <Filename Value="source\vpinids.pas"/>
         <UnitName Value="VpIniDs"/>
-      </Item10>
-      <Item11>
+      </Item9>
+      <Item10>
         <Filename Value="source\vpmisc.pas"/>
         <UnitName Value="VpMisc"/>
-      </Item11>
-      <Item12>
+      </Item10>
+      <Item11>
         <Filename Value="source\vpsqlite3ds.pas"/>
         <UnitName Value="VpSQLite3DS"/>
-      </Item12>
-      <Item13>
+      </Item11>
+      <Item12>
         <Filename Value="source\vpsr.pas"/>
         <UnitName Value="VpSR"/>
-      </Item13>
-      <Item14>
+      </Item12>
+      <Item13>
         <Filename Value="source\vpcanvasutils.pas"/>
         <UnitName Value="VpCanvasUtils"/>
-      </Item14>
-      <Item15>
+      </Item13>
+      <Item14>
         <Filename Value="source\vpabout.lfm"/>
         <Type Value="LFM"/>
-      </Item15>
-      <Item16>
+      </Item14>
+      <Item15>
         <Filename Value="source\vpabout.pas"/>
         <UnitName Value="VpAbout"/>
-      </Item16>
-      <Item17>
+      </Item15>
+      <Item16>
         <Filename Value="source\vpalarmdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item17>
-      <Item18>
+      </Item16>
+      <Item17>
         <Filename Value="source\vpalarmdlg.pas"/>
         <UnitName Value="VpAlarmDlg"/>
-      </Item18>
-      <Item19>
+      </Item17>
+      <Item18>
         <Filename Value="source\vpcalendar.pas"/>
         <UnitName Value="VpCalendar"/>
-      </Item19>
-      <Item20>
+      </Item18>
+      <Item19>
         <Filename Value="source\vpcalendarpainter.pas"/>
         <UnitName Value="VpCalendarPainter"/>
-      </Item20>
-      <Item21>
+      </Item19>
+      <Item20>
         <Filename Value="source\vpcontactbuttons.pas"/>
         <UnitName Value="VpContactButtons"/>
-      </Item21>
-      <Item22>
+      </Item20>
+      <Item21>
         <Filename Value="source\vpcontacteditdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item22>
-      <Item23>
+      </Item21>
+      <Item22>
         <Filename Value="source\vpcontacteditdlg.pas"/>
         <UnitName Value="VpContactEditDlg"/>
-      </Item23>
-      <Item24>
+      </Item22>
+      <Item23>
         <Filename Value="source\vpcontactgrid.pas"/>
         <UnitName Value="VpContactGrid"/>
-      </Item24>
-      <Item25>
+      </Item23>
+      <Item24>
         <Filename Value="source\vpcontactgridpainter.pas"/>
         <UnitName Value="VpContactGridPainter"/>
-      </Item25>
-      <Item26>
+      </Item24>
+      <Item25>
         <Filename Value="source\vpdayview.pas"/>
         <UnitName Value="VpDayView"/>
-      </Item26>
-      <Item27>
+      </Item25>
+      <Item26>
         <Filename Value="source\vpdayviewpainter.pas"/>
         <UnitName Value="VpDayViewPainter"/>
-      </Item27>
-      <Item28>
+      </Item26>
+      <Item27>
         <Filename Value="source\vpdlg.pas"/>
         <UnitName Value="VpDlg"/>
-      </Item28>
-      <Item29>
+      </Item27>
+      <Item28>
         <Filename Value="source\vpedelem.lfm"/>
         <Type Value="LFM"/>
-      </Item29>
-      <Item30>
+      </Item28>
+      <Item29>
         <Filename Value="source\vpedelem.pas"/>
         <UnitName Value="VpEdElem"/>
-      </Item30>
-      <Item31>
+      </Item29>
+      <Item30>
         <Filename Value="source\vpedfmt.lfm"/>
         <Type Value="LFM"/>
-      </Item31>
-      <Item32>
+      </Item30>
+      <Item31>
         <Filename Value="source\vpedfmt.pas"/>
         <UnitName Value="VpEdFmt"/>
-      </Item32>
-      <Item33>
+      </Item31>
+      <Item32>
         <Filename Value="source\vpedfmtlst.lfm"/>
         <Type Value="LFM"/>
-      </Item33>
-      <Item34>
+      </Item32>
+      <Item33>
         <Filename Value="source\vpedfmtlst.pas"/>
         <UnitName Value="VpEdFmtLst"/>
-      </Item34>
-      <Item35>
+      </Item33>
+      <Item34>
         <Filename Value="source\vpedshape.lfm"/>
         <Type Value="LFM"/>
-      </Item35>
-      <Item36>
+      </Item34>
+      <Item35>
         <Filename Value="source\vpedshape.pas"/>
         <UnitName Value="VpEdShape"/>
-      </Item36>
-      <Item37>
+      </Item35>
+      <Item36>
         <Filename Value="source\vpevnteditdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item37>
-      <Item38>
+      </Item36>
+      <Item37>
         <Filename Value="source\vpevnteditdlg.pas"/>
         <UnitName Value="VpEvntEditDlg"/>
-      </Item38>
-      <Item39>
+      </Item37>
+      <Item38>
         <Filename Value="source\vpfbds.pas"/>
         <UnitName Value="VpFBDS"/>
-      </Item39>
-      <Item40>
+      </Item38>
+      <Item39>
         <Filename Value="source\vpflxds.pas"/>
         <UnitName Value="VpFlxDS"/>
-      </Item40>
-      <Item41>
+      </Item39>
+      <Item40>
         <Filename Value="source\vpflxdsed1.pas"/>
         <UnitName Value="VpFlxDsEd1"/>
-      </Item41>
-      <Item42>
+      </Item40>
+      <Item41>
         <Filename Value="source\vpflxdsed1.lfm"/>
         <Type Value="LFM"/>
-      </Item42>
-      <Item43>
+      </Item41>
+      <Item42>
         <Filename Value="source\vpledlabel.pas"/>
         <UnitName Value="VpLEDLabel"/>
-      </Item43>
-      <Item44>
+      </Item42>
+      <Item43>
         <Filename Value="source\vplocalize.pas"/>
         <UnitName Value="VpLocalize"/>
-      </Item44>
-      <Item45>
+      </Item43>
+      <Item44>
         <Filename Value="source\vpmonthview.pas"/>
         <UnitName Value="VpMonthView"/>
-      </Item45>
-      <Item46>
+      </Item44>
+      <Item45>
         <Filename Value="source\vpmonthviewpainter.pas"/>
         <UnitName Value="VpMonthViewPainter"/>
-      </Item46>
-      <Item47>
+      </Item45>
+      <Item46>
         <Filename Value="source\vpnavbar.pas"/>
         <UnitName Value="VpNavBar"/>
-      </Item47>
-      <Item48>
+      </Item46>
+      <Item47>
         <Filename Value="source\vpnavbarpainter.pas"/>
         <UnitName Value="VpNavBarPainter"/>
-      </Item48>
-      <Item49>
+      </Item47>
+      <Item48>
         <Filename Value="source\vpprtfmt.pas"/>
         <UnitName Value="VpPrtFmt"/>
-      </Item49>
-      <Item50>
+      </Item48>
+      <Item49>
         <Filename Value="source\vpprtfmtcbox.pas"/>
         <UnitName Value="VpPrtFmtCBox"/>
-      </Item50>
-      <Item51>
+      </Item49>
+      <Item50>
         <Filename Value="source\vpprtfmtdlg.pas"/>
         <UnitName Value="VpPrtFmtDlg"/>
-      </Item51>
-      <Item52>
+      </Item50>
+      <Item51>
         <Filename Value="source\vpprtprv.pas"/>
         <UnitName Value="VpPrtPrv"/>
-      </Item52>
-      <Item53>
+      </Item51>
+      <Item52>
         <Filename Value="source\vpprtprvdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item53>
-      <Item54>
+      </Item52>
+      <Item53>
         <Filename Value="source\vpprtprvdlg.pas"/>
         <UnitName Value="VpPrtPrvDlg"/>
-      </Item54>
-      <Item55>
+      </Item53>
+      <Item54>
         <Filename Value="source\vpreseditdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item55>
-      <Item56>
+      </Item54>
+      <Item55>
         <Filename Value="source\vpreseditdlg.pas"/>
         <UnitName Value="VpResEditDlg"/>
-      </Item56>
-      <Item57>
+      </Item55>
+      <Item56>
         <Filename Value="source\vpselresdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item57>
-      <Item58>
+      </Item56>
+      <Item57>
         <Filename Value="source\vpselresdlg.pas"/>
         <UnitName Value="VpSelResDlg"/>
-      </Item58>
-      <Item59>
+      </Item57>
+      <Item58>
         <Filename Value="source\vptaskeditdlg.pas"/>
         <UnitName Value="VpTaskEditDlg"/>
-      </Item59>
-      <Item60>
+      </Item58>
+      <Item59>
         <Filename Value="source\vptasklist.pas"/>
         <UnitName Value="VpTaskList"/>
-      </Item60>
-      <Item61>
+      </Item59>
+      <Item60>
         <Filename Value="source\vptasklistpainter.pas"/>
         <UnitName Value="VpTasklistPainter"/>
-      </Item61>
-      <Item62>
+      </Item60>
+      <Item61>
         <Filename Value="source\vptimerpool.pas"/>
         <UnitName Value="VpTimerPool"/>
-      </Item62>
-      <Item63>
+      </Item61>
+      <Item62>
         <Filename Value="source\vpwavdlg.lfm"/>
         <Type Value="LFM"/>
-      </Item63>
-      <Item64>
+      </Item62>
+      <Item63>
         <Filename Value="source\vpwavdlg.pas"/>
         <UnitName Value="VpWavDlg"/>
-      </Item64>
-      <Item65>
+      </Item63>
+      <Item64>
         <Filename Value="source\vpweekview.pas"/>
         <UnitName Value="VpWeekView"/>
-      </Item65>
-      <Item66>
+      </Item64>
+      <Item65>
         <Filename Value="source\vpweekviewpainter.pas"/>
         <UnitName Value="VpWeekViewPainter"/>
-      </Item66>
-      <Item67>
+      </Item65>
+      <Item66>
         <Filename Value="source\vpxbase.pas"/>
         <UnitName Value="VpXBase"/>
-      </Item67>
-      <Item68>
+      </Item66>
+      <Item67>
         <Filename Value="source\vpxchrflt.pas"/>
         <UnitName Value="VpXChrFlt"/>
-      </Item68>
-      <Item69>
+      </Item67>
+      <Item68>
         <Filename Value="source\vpxmlds.pas"/>
         <UnitName Value="VpXmlDs"/>
-      </Item69>
-      <Item70>
+      </Item68>
+      <Item69>
         <Filename Value="source\vpxparsr.pas"/>
         <UnitName Value="VpXParsr"/>
-      </Item70>
-      <Item71>
+      </Item69>
+      <Item70>
         <Filename Value="source\vpclock.pas"/>
         <UnitName Value="VpClock"/>
-      </Item71>
-      <Item72>
+      </Item70>
+      <Item71>
         <Filename Value="source\vpjsonds.pas"/>
         <UnitName Value="VpJSONDs"/>
-      </Item72>
+      </Item71>
     </Files>
     <i18n>
       <EnableI18N Value="True"/>
diff --git a/components/tvplanit/source/vpbasepng.res b/components/tvplanit/source/vpbasepng.res
index 6a8bab56d..61388e95a 100644
Binary files a/components/tvplanit/source/vpbasepng.res and b/components/tvplanit/source/vpbasepng.res differ
diff --git a/components/tvplanit/source/vpnavbar.pas b/components/tvplanit/source/vpnavbar.pas
index 8dc813e9f..d5884a375 100644
--- a/components/tvplanit/source/vpnavbar.pas
+++ b/components/tvplanit/source/vpnavbar.pas
@@ -1031,6 +1031,7 @@ begin
     Parent := Self;
     OnClick := nabScrollUpBtnClick;
 //    Glyph.LoadFromResourceName(HINSTANCE, 'VPUPARROW');
+    LoadGlyphFromRCDATA(Glyph, 'VPUPARROW');
     NumGlyphs := 1;
     Left := -20;
     Height := 15;
@@ -1043,6 +1044,7 @@ begin
     Parent := Self;
     OnClick := nabScrollDownBtnClick;
 //    Glyph.LoadFromResourceName(HINSTANCE, 'VPDOWNARROW');
+    LoadGlyphFromRCDATA(Glyph, 'VPDOWNARROW');
     NumGlyphs := 1;
     Left := -20;
     Height := 15;