Как убрать скролл в ListBox

ShowScrollBar(ListBox1->Handle,SB_VERT,false);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for( int i=0; i<100; i++ )
  ListBox1->Items->Add( "item " + IntToStr( i ) );
}

void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
while( abs(GetKeyState(VK_RBUTTON)) == 127 ||
       abs(GetKeyState(VK_RBUTTON)) == 128   )
 
    {
    static int old_Y = Y;
    const short int Tremor = 5, Step = 1;
      if( old_Y > Y+Tremor )
        {
        ListBox1->TopIndex++;
        old_Y -= Step;
        }
      else
      if( old_Y < Y-Tremor )
        {
        ListBox1->TopIndex--;
        old_Y += Step;
        }
   Edit1->Text = old_Y;
   return;
   }
}

// Перед классом формы:
namespace LB_NoScroll
{
    class TListBox : public Stdctrls::TListBox
    {
    protected:
        virtual void __fastcall CreateParams(Controls::TCreateParams &Params)
        {
            Stdctrls::TListBox::CreateParams(Params);
            Params.Style = Params.Style & (~WS_VSCROLL);
        }
    public:
        __fastcall virtual TListBox(System::Classes::TComponent* AOwner)
            : Stdctrls::TListBox(AOwner)
        {
        }
    };
}
#define TListBox LB_NoScroll::TListBox
 
class TForm1 : public TForm
// ...

// Перед классом формы:
namespace CLB_NoScroll
{
    class TCheckListBox : public Checklst::TCheckListBox
    {
    protected:
        virtual void __fastcall CreateParams(Controls::TCreateParams &Params)
        {
            Checklst::TCheckListBox::CreateParams(Params);
            Params.Style = Params.Style & (~WS_VSCROLL);
        }
    public:
        __fastcall virtual TCheckListBox(System::Classes::TComponent* AOwner)
            : Checklst::TCheckListBox(AOwner)
        {
        }
    };
}
#define TCheckListBox CLB_NoScroll::TCheckListBox