スタック領域エラーについて

いつも参考にさせていただいています。
ご回答よろしくおねがいします。

新規のフォームにチェックボックスを３つ追加しました。
コントロール配列です。
------frame1--------
| checkbox1(0) |
| checkbox1(1) |
| checkbox1(2) |
--------------------

このときに、

---------------------------------------------
Private Sub Check1_Click(Index As Integer)

Check1(0).Value = 0
Check1(1).Value = 0
Check1(2).Value = 0
Check1(Index).Value = 1

End Sub
---------------------------------------------

以上のようにプログラムを実行すると、
スタック領域エラー（エラー28）が出力されます。
この回避方法について、また原因がおわかりいただけたら
ご教授おねがいできないでしょうか？

OS：WinXP SP3
環境：VB6

No.1 ベストアンサー 回答者： nag0720 回答日時： 2009/06/29 23:30

原因は、

Private Sub Check1_Click(Index As Integer)
の中でチェックボックスの値を変えているため、自分自身の手続きを再帰呼び出ししているためです。

対処方法は、最初にすべてのチェックボックスを０にするのではなく、Indexを調べて必要なチェックボックスの値だけを変えるようにしましょう。

No.2 回答者： redfox63 回答日時： 2009/06/29 23:51

Check1_Clickメソッドにフラグを設けてやればご希望のことは可能でしょう

Private Sub Check1_Click(Index As Integer)
　　static bflag as Boolean
　　' このメソッドを実行中の場合は処理を中断
　　if bflag then exit sub
　　' 実行中のフラグをセット
　　bflag = true
　　Check1(0).Value = 0
　　Check1(1).Value = 0
　　Check1(2).Value = 0
　　Check1(Index).Value = 1
　　' 処理終了なのでフラグをリセット
　　bflag = false
End Sub

といった具合でしょう