lock checkbox in Listview

[Lee Chetwynd]

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  If Frame3.Enabled = False Then
         Item.checked = not Item.checked
  End If
End Sub

Would be a concise way of doing it.