開発環境】
OS　 :WindowsXP(SP3)
言語：VB6.0(SP6)

右クリックメニューを表示した後のSetFocusについて質問です。

フォームAに貼り付けたMSチャートコントロールのグラフ（オブジェクト名：chAAA）を右
クリックしてポップアップメニューを表示し、
別フォームBをLoadしてchAAAグラフを拡大したグラフ(オブジェクト名：chBBB)に表示す
るプログラムを作成しています。

問題点は、フォームBを終了した後フォームAがアクティブになる際に、
フォームA内のコマンドボタンを１度押下しても反応しないというものです。
２度目の押下で反応します。

手順としては以下です。

(1)フォームAのchAAAのMouseDownイベント内で右クリックであれば拡大するメニューを表
示
(2)メニューを選択し、フォームBをvbModalでShow
(3)フォームBを表示後、ボタン操作でUnload
(4)フォームAのコマンドボタンを押下しても反応せず

chAAAのMouseDownイベント内では、PopupMenuメソッド終了後に
フォームAのコマンドボタンに対してSetFocusしています。

以下にソースを表記します。

'右クリック時に拡大メニューを表示
Private Sub chAAA_MouseDown(Button As Integer,
　　　　　　　　　　　　　　Shift As Integer,
　　　　　　　　　　　　　　X As Single,
　　　　　　　　　　　　　　Y As Single)

On Error Resume Next
If Button = vbRightButton Then
　　'拡大メニューのポップアップ
frmA.PopupMenu mnuKakudai, vbPopupMenuRightButton

　　　'コマンドボタンにフォーカスを移す
cmdExit.SetFocus ←※SetFocus自体は成功。
※この処理後にActiveControl.Captionを
※Debug.Printでチェックしたところ,
※cmdExitのキャプションが返るが、
※実際はフォーカスが移動されないと思われる。

End If

End Sub

'右クリックメニュー選択時
Private Sub mnuKakudai_Click()

frmB.Show vbModal

End Sub

SetFocusするタイミングが悪いのではと考えていますが、
対策方法が分からないです。

ご教授よろしくお願いします。