Private Sub CommandButton1_Click()
Dim c As Long
For c = 0 To Me.ListBox1.ListCount
If Me.ListBox1.Selected(c) = True Then
Me.ListBox1.List(c, 1) = Me.ListBox1.List(c, 1) + 1
End If
Next c
End Sub
Private Sub CommandButton2_Click()
Dim c As Long
For c = 0 To Me.ListBox1.ListCount
If Me.ListBox1.Selected(c) = True Then
Me.ListBox1.List(c, 1) = Me.ListBox1.List(c, 1) - 1
End If
Next c
End Sub