Private Sub txtNumber_KeyPress(KeyAscii As Integer)
If txtNumber.Text <> "" And KeyAscii = PUSHENTKEY Then
        If cmbFooter.Enabled = False Then
            cmbFooter.Enabled = True
            cmbFooter.SetFocus          '付けたし部分（参考）
        Else
            cmbFooter.SetFocus
        End If
    End If

End Sub


上記のプロシージャを実行してもtxtNumberからcmbFooterにマウスのフォーカスが移りません。どこが違うのでしょうか？教えてください。ちなみに別の同じようなプログラムではこのコードで正しくフォーカスが移ります。

貴方、「KeyAscii - popo 04/23-16:47」のpopoさんでしょう？
で、「印刷の効率化 - カズ 04/23-20:28 」の　カズ　さんでしょう？

「Re^2: 印刷の効率化 - カズ 04/23-22:37」で、
------------------------------------------------------
> 私が知ってるだけで、たけし、トニー、カズ、popo
> いくつのHNを使い分けているんですか？放ったらかしにするし。
> ここの掲示板の一番下に「初めにお読み下さい」というリンクがあるから
> そこを読んでマナーだけは守ってください。どこでも通用しますから。
>
> 回答している方の多くは複数の掲示板を見ていますから、マナーを守らないと
> 良いアドバイスはもらえませんよ。

すいません。これからは気おつけます。よい回答を教えて下さい。
-------------------------------------------------------------
と言っているにも関らず、マナーを守る気は無いのですか？


＃いい加減、人の行為を踏みにじるようなまねは止めてください。
＃今後、ここの掲示板で「３分間云々」と「フォーカス云々」の質問がされるたび、
＃同じコメントをされていただきます。