multiselect property of the listbox should be max 7 items

[sabi]

hi
can some1 pls help. i need to make a listbox multiselect but the user can select only 7 items from the list. From the multiselect property of the list box i am selecting simple option. this property allows the user to select more then 7 items from the list box but i want the user can select only 7 items.

can some1 pls tell how to go about

thanks in advance.

[Shuja Ali]

Put this code in the Click/MouseDown Event of the Listbox. This will allow only 7 items to be selected

	'Check if the Selected Item count is greater than 7
	If List1.SelCount > 7 Then
		'Set the last Selected Item as False
		List1.Selected(List1.ListIndex) = False
		'Display a Message
		MsgBox "You Cannot Select more than 7 Items", vbInformation
	End If

[sabi]

Thanks u r suggestion worked