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.
Option Explicit
Dim i As Integer
Dim blnCheck As Boolean
Private Sub Form_Load()
For i = 1 To 15
List1.AddItem "Item " & i
Next i
For i = 0 To 15 Step 2
List1.Selected(i) = True
Next i
blnCheck = True
End Sub
Private Sub List1_ItemCheck(Item As Integer)
If blnCheck = True Then
List1.Selected(Item) = Not (List1.Selected(Item))
End If
End Sub
Basically I don't want the user to be able to tick/untick a check-box by clicking on the comment part of the line. i.e. the only way to tick/untick a checkbox is by clicking directly on it.