If nClick = 1 Thenの行にブレイクを入れて実行、ダブルクリックしてみてください。また、MSDNのDoEventsステートに、DoEventsにより複数回プロージャが呼ばれる際の処理について書いてありますよ。