Select Case Msg.message Case %WM_KEYDOWN If msg.wParam = %VK_TAB Then If (GetAsyncKeyState(%VK_SHIFT) And &H8000) <> 0 Then ? "Shift+TAB" End If End If End Select