شما می توانید چک باکس ها را به صورت ارایه تعریف کنید برای ارایه کردن یک چک باکس روی فرم قرار دهید و راست کلیک کرده و کپی کنید و با پیست کردن جواب yes را بزنید یا اینکه تمام نام های چک باکس ار یکی کنید و بعد با استفاده است یک حلقه for و و یک if و یک select case این کار ها را انجام دهید
مثال:
Private Sub Command1_Click()
For i = 0 To Check1.Count - 1
If Check1(i).Value = 1 Then
Select Case i
Case 0
Me.BackColor = vbRed
Exit Sub
Case 1
Me.Caption = "mahdimhz@yahoo.com"
Exit Sub
Case 2
End
Exit Sub
End Select
End If
Next
End Sub