안녕하세요! 담비입니다.

다음과 같이 테스트 했는데 정상적으로 잘 작동하던데요.
물론 키값의 상태가 정확하게 반영되지는 않는것 같은데
이유는 잘 모르겠습니다. 값이 0,1,-127,-128중의 하나이더군요.

Tab Order 는 Button3 -> Button4 -> Button5의 순입니다.
Button5에 focus가 간 후에 Shift + Tab key를 눌러 확인해보세요.

void __fastcall TForm1::Button5Click(TObject *Sender)
{
keybd_event(VK_SHIFT, 1 ,0, 0);
StatusBar1->Panels->Items[0]->Text=GetKeyState(VK_SHIFT);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Enter(TObject *Sender)
{
keybd_event(VK_SHIFT, 1 ,KEYEVENTF_KEYUP, 0);
StatusBar1->Panels->Items[0]->Text=GetKeyState(VK_SHIFT);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Enter(TObject *Sender)
{
StatusBar1->Panels->Items[0]->Text=GetKeyState(VK_SHIFT);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Enter(TObject *Sender)
{

StatusBar1->Panels->Items[0]->Text=GetKeyState(VK_SHIFT);
}
//---------------------------------------------------------------------------