' desde la rutina llamante podría haber líneas como estas:
' de hecho una vez que pruebes el código anterior, mete estas 4 líneas al final del form_load para poder probar la rutina LimitarLineas.
For k = 1 To 43
Call Malla0.AddItem("", 1)
Next
Call LimitarLineas(10)
Private Sub LimitarLineas(ByVal n As Long)
Dim fixed As Long
fixed = Malla.FixedRows ' 1º guardamos el número actual de líneas fijas
Malla.FixedRows = fixed + n ' ahora aumentamos las líneas fijas hasta las que queremos conservar
Malla.Rows = Malla.FixedRows ' desaparecen todas las líneas que no son fijas,
If n > 0 Then ' si no varió el número de líneas fijas no necesitamos REStablecer este valor, además de no necesario, produciría error.
Malla.FixedRows = fixed ' restablecemos el número de líneas fijas previo
End If
End Sub