Disminuir espacio en ListView

[E N T E R]

Tengo un Listview con vista de lvwIcon que quiero disminuir el espacio entre cada Item. Yo tengo una función que disminuye el espacio pero falta mas ahi en el source esta la funcion que disminuye.

SOURCE
http://www.mediafire.com/?zck4w2lecy0y1zj

SCREEN


Uploaded with ImageShack.us

O igual si conocen de otro control similar a listview.

[raul338]

El ucListView lo usa, pero tiene sus temitas viste

Igual el truco es usar LVM_SETICONSPACING

Código: [Seleccionar]

Private Const LVM_SETICONSPACING           As Long = (LVM_FIRST + 53)
Public Function MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
  MakeDWord = (CLng(HiWord) * &H10000) Or (LoWord And &HFFFF&)
End Function

Usalo con SendMessage y MakeDword

[E N T E R]

Gracias Raul por responder. La verdad no sabia donde poner ese codigo que me pasaste pero por suerte lo solucione asi:

Código: (VB) [Seleccionar]

LCartones.Arrange = lvwAutoLeft
Y quedo perfecto como quería.

Screen



Uploaded with ImageShack.us