こんなんどうでしょ?Private Sub List1_ItemCheck(Item As Integer) With List1 .Selected(Item) = Not .Selected(Item) End WithEnd Sub