إزالة الصفوف غير المحددة في ListBox

وعليكم السلام ورحمة الله وبركاته

اظن ان هذ الكود يفى بالغرض

Private Sub Command1_Click()
Dim Counter As Integer
Do While Counter<= List1.ListCount-1
DoEvents
If List1.Selected(Counter) =False Then
List1.RemoveItem Counter
Counter=Counter-1
End If
Counter=Counter+1
Loop
End Sub

اتمنى ان يكون هو المطلوب :rolleyes:

جزاك الله خير

نعم هذا المطلوب