listbox

Hola Gilro:
Prueba esto dentro del userform.

Private Sub ListBox1_Change()
Dim r As Integer
Dim elegido As Integer

elegido = 0

For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then elegido = elegido + 1
If elegido = 6 Then
ListBox1.Selected(r) = False
MsgBox "No se pueden selecionar más de 5 items", 16
Exit Sub
End If
Next

End Sub






"Gilro" escribió en el mensaje
news:338401c4a833$c20b3790$

Que tal, como siempre espero contar con su ayuda

Estoy utilizando un control ListBox con parametro
fmMultiSelectMulti, este contiene un total de 26 elementos
de los cuales solo necesito seleccionar 5, como puedo
hacer para que el usuario ya no pueda seleccionar mas de 5
elementos o que mande algun mensaje para indicar que ha
seleccionado mas de 5 elementos

Saludos
Gil Romero