Controlを使用してENTERによるフォーカス移動をしています。
フォーカスがあるTEXTBOXのBACKCOLORを変更しているのですが、
マウス・TABでの移動時に、うまく変更できません。
マウス・TABでの移動後に文字でも入力すれば
Form_KeyPress・Form_KeyDownで変更出来るのですが
移動後すぐに変更するには、やはり各TEXTBOXのGOTFOCUSを
使用するしか方法はないのでしょうか？
他には、あまり使いたくないんですがTIMERを使う方法しか思いつかず
悩んでいます。
1画面に張り付いているTEXTBOXが多く長文になってしまうので
それを避けたいのもあるのです。

教えてください。宜しくお願いします。

> マウス・TABでの移動後に文字でも入力すれば
> Form_KeyPress・Form_KeyDownで変更出来るのですが

この場合の
Formのプロパティ、KeyPreviewはどう(True Or False)なっていますか？

> 1画面に張り付いているTEXTBOXが多く長文になってしまうので
> それを避けたいのもあるのです。

TextBox は配列になっていないのですか？　上記が目的なら配列にした方が簡単なような
タイマーを使うのがいやなら、サブクラス化してメッセージを捕まえるとか（これも
結構大変）

いなさん・花ちゃんさん返信ありがとうございます。

＞ Formのプロパティ、KeyPreviewはどう(True Or False)なっていますか？
formのKeyPreview　は　trueです。

> TextBox は配列になっていないのですか？　上記が目的なら配列にした方が簡単なような
> タイマーを使うのがいやなら、サブクラス化してメッセージを捕まえるとか（これも
> 結構大変）
配列にはなっていません。
結構大変だって聞いていたのでサブクラス化は
やったことがないんです。

クラスモジュールで
WithEventsを利用したらどうでしょう。

YKさん　返信ありあがとうございます。

> クラスモジュールで
> WithEventsを利用したらどうでしょう。

WithEvents で出来ました。
今まで使ったことが無かったのですが、何とか思うように動きました。
WithEvents 過去ログから参照して自分なりに作ってみてたのですが
下記のようでしょうか？

Private Const LogCtrNum = 37
Private Ctr(LogCtrNum) As Control
Private WithEvents A As TextBox

Private Sub Form_Load()
   Call FocSet
End Sub

Private Sub FocSet()
    Set Ctr(0) = Txt0
    Set Ctr(1) = Txt1
    Set Ctr(2) = Txt2    
    ・
    ・
    ・
    Set Ctr(37) = Txt37
End Sub

Private Sub A_LostFocus()
    SE = Screen.ActiveControl.TabIndex
    ChgColor (SE)                         'BackColor変更
    Set a = Ctr(SE)
End Sub


いなさん　花ちゃんさん　ＹＫさん　本当にありがとうございました。