int Index; //header Public: 란에 추가!!!!

void __fasttcall TForm1::ListBox1MouseDown(.......)
{
Index=ListBox1->ItemIndex;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ListBox1->Items->Move(Index,Index--);
SendMessage(ListBox1->Handle, WM_VSCROLL, SB_LINEUP, 0)
}

위와 같은 코딩을 하고나서

리스트 박스에는 아이템이 많아 수직 스크롤바가 나타납니다.
맨 아래의 아이템을 선택한후 버튼1을 누르면 하나씩 위로 이동하는데
하다가 보면 수직스크롤바가 움직여 지지 않아 선택된 아이템의 이동되는 모습이
보이질 않습니다.... 왜그럴까요?

해결하는 방법좀 주세요