>>753
まず　ListBoxを作成して
　　　　　　　ListBoxプロパティの"Style"項目を「1-チェックボックス」にします。
　　　　　　　あとは下記の処理でＯＫです。

　　　　　　　Private Sub Form_Load()
　　　　　　　　　'リストボックスに項目を追加
　　　　　　　　　List1.AddItem "Sample-1"
　　　　　　　　　List1.AddItem "Sample-2"
　　　　　　　　　List1.AddItem "Sample-3"
　　　　　　　　　
　　　　　　　　　その他の記述文
　　　　　　　End Sub

　　　　　　　Private Sub List1_ItemCheck(Item As Integer)
　　　　　　　　　If List1.Selected(Item) Then
　　　　　　　　　　　List1.List(Item)がチェックされたときの処理を記述
　　　　　　　　　Else
　　　　　　　　　　　List1.List(Item)のチェックがばずれたときの処理を記述
　　　　　　　　　End If
　　　　　　　End Sub

らしいです
漏れも参考にさせて貰ったです