VB6でForm_Load中にイベントを発生させない方法

VB6でForm_Loadにオプションボタンの選択を変更するとオプションボタンのクリックイベント（選択変更）が動作してしまいます。
Form_Loadの初期表示の設定をしているときは、オプションボタンのイベントを無効にしたいのですがどのようにしたら良いでしょうか？
RemoveHandler等の処理があるみたいですが良く分かりません。
良い方法を教えてください。
宜しくお願いします。。

No.2 ベストアンサー 回答者： myRange 回答日時： 2009/07/31 17:03

VB6の環境がないのでなんですが、

Flagを使ってもできないことはないですね。
Optionコントロールは配列にしてあるでしょうから
追加コードも少々でしょう。

'--------------------------------------

　Dim Flag As Boolean

Private Sub Form_Load()
　Flag = True
　Option1(0).Value = True
　Flag = False
End Sub

Private Sub Option1_Click(Index As Integer)
　If Flag Then Exit Sub
　MsgBox "option"
End Sub
'-------------------------------------------

以上ここまで。
　

No.3 回答者： imogasi 回答日時： 2009/07/31 20:52

似たような質問があった。

http://homepage1.nifty.com/MADIA/vb/vb_bbs2/2005 …
VBには無いようですね。
であれば、フラグででも処理情況を伝えて、成就していない間は、イベントで直ぐExitSubするほか無いようです。
ーー
エクセルVBAにApplication.EnableEvents が有るので、APIかなんか使えば出来そうだが。

No.1 回答者： usokoku 回答日時： 2009/07/31 16:51

そのあたりのないようがさっぱりわからないので、

大域で
Dim FormLoadFig&
と作業中フラグを用意して

Sub Form_load....
FormLoadFig& = 1&
(適当な処理)
FormLoadFig& = 2&
end sub

Sub 適当に_clock
if (FormLoadFig& = 1&) then
else
(適当な処理)
end if
end sub

Sub Form_Unload....
'大域変数は初回のみ初期化されるのでここで初期状態を設定
'イニシャライズのほうで初期化するのも可
FormLoadFig& = 0&
end sub