[عبدالله الصافي]

ادخل هذا الكود بمشروع وجربه
لعله ما تريد

كود :

Private Sub Command1_Click()
List1.RemoveItem List1.ListCount - 1
End Sub

Private Sub Form_Load()
For i = 0 To 50
List1.AddItem i
Next
End Sub