チェックボックスの使い方をご教授下さい (ID:118151)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ｖｂ６ チェックボックスとラベルをコントロール配列にして３つForm上に作る。 そして下のロジックを実行。 Option Explicit Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = False Then Form1.BackColor = &H8000000F Label1(Index).Caption = "" Exit Sub End If Label1(Index).Caption = "Label" & CStr(Index) Select Case Index Case 1 Form1.BackColor = vbRed Case 2 Form1.BackColor = vbBlue Case 3 Form1.BackColor = vbYellow Case Else Form1.BackColor = vbGreen End Select End Sub こんな感じかな（＾＾；）