VB6 動的追加コントロールの値変更

質問

お世話になります。VB6初心者です。
動的追加コントロールの値変更で困っています。

Form3にFrame1をコントロール配列で１つ置いています。
ループ処理でFrame1をループ分LOADし、そのフレームの上にチェックボックスを動的に追加していく処理をしています。この動的に追加したチェックボックスの値の変更ができません。
ちなみに値やキャプションの取得はできます。
どなたかご教授願います。

Private Sub Command1_Click()
Dim CHKbox(4) As VB.CheckBox
Dim i As Integer

For i = 1 To 4
Load Form3.Frame1(i)
With Form3.Frame1(i)
.Top = Form3.Frame1(i - 1).Top + 450
.Visible = True
.Caption = "フレーム" & i
End With
Set CHKbox(i) = Controls.Add("VB.Checkbox", "CHKbox" & i, Form3.Frame1(i))
With CHKbox(i)
.Move 2000, 200, 1300, 180
.Visible = True
.Caption = "チェック" & i
End With
Next

MsgBox CHKbox(1).Value　　｀値の取得は可能ですが
CHKbox(1).Value = True　　　｀値の変更ができません

End Sub

回答No.1

TooManyBugs · ベストアンサー

チェックボックスのValueはブーリアンではなく整数です。
0　未チェック
1　チェック
2　無効

の３値を代入できます。

お礼

早速の回答ありがとうございます。
完全にブーリアンだと思い込んでおり、構文等が悪いのだと思っていました。
今後はしっかり確認した上で、質問するよう注意致します。
とにかく、助かりました。本当にありがとうございました。