初めて投稿させていただきます。

VB6.0で、1つのForm上に3つのFrameを貼り付けています。
各Frameの中にテキストボックスが10個づつ貼り付けてあります。

Frame1内のテキストボックスから
Frame2もしくはFrame3のテキスボックスへフォーカスが移動したら
（もしくはFrame2やFrame3からほかのFrameへ移動した場合も）
メッセージを表示するようなプログラムを作りたいと思っています。

エンターキーで移動した場合ならできるのですが、
マウスでクリックして移動された場合がどうもうまくいきません。
すべてのテキストボックスでイベントを拾うような長いコーディングは嫌なんです。。。
また、テキストボックスを配列にしたくはありません。

ほかにアイデアがあったら教えていただけないでしょうか。
どうぞよろしくお願いします。

Screen.ActiveForm / Screen.ActiveControl について調べて見て下さい。
ここのサンプルの No.180 はそれらを使って実現しております。

どうもありがとうございました。
早速調べてみます。