質問させてください。
VB6.0を用いています。

フォーム上での矢印キーによるフォーカス移動制御を行いたいと思います。
フォーム上に存在するボタン間の制御を行うために、
Command_KeyPress内に矢印キー押下時のフォーカス移動に関する記述を行ったのですが、どうやら、矢印キーを押下してもCommand_KeyPress内に制御は移っていないようです。
どこにどのように記述すればこのような制御は可能でしょうか？

私の場合、以下のような記述を行うことを考えています。

例：ボタンA上で右矢印キーが押され、ボタンBにフォーカスを移す場合

IF KeyCode=vbKeyRight then
commandB.setFocus
END IF

このような記述はスマートでしょうか？
ボタンが多いフォーム上ではやたらコードの量が増えて効率が悪いような気がします。
何かよい方法は存在するのでしょうか？
初歩的な質問で申し訳ありません、ご存知の方がおられましたらよろしくお願いいたします。