Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
If Check1.Checked = True then
'do this
ElseIf Check1.Checked And Check2.Checked = True Then
'do something else
End if
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
n = 0
For i = 1 To 15
If Check1(i).Value = "1" Then n = n + 1
Next
Select Case n
Case "1"
MsgBox "One"
Case Is > "1"
MsgBox "More than one"
Case Else
MsgBox "None"
End Select
End Sub