リストボックスのチェックについて (ID:89789)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでいいのでは？ Option Explicit Private OldIndex As Integer Private Sub Form_Load() List1.Clear List1.AddItem "123" List1.AddItem "456" List1.AddItem "789" List1.ListIndex = 0 OldIndex = 0 End Sub Private Sub List1_Click() If List1.ListIndex = OldIndex Then Exit Sub List1.Selected(List1.ListIndex) = Not List1.Selected(List1.ListIndex) End Sub Private Sub List1_ItemCheck(Item As Integer) OldIndex = Item End Sub