Etiket: <span>MultiSelectListboxHowMuchSelect</span>

  Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim a As Integer For i = 0 To Me.Lstcap.ListCount -…