Change the line spacing between items in a VBA listbox

[KeepTrying]

Hi Guys,

I'd like to change the line spacing between items in a VBA listbox. Let's assume I display month names in a listbox control. Name of my listbox is "Lista". It's easy, I just add one line to "Private Sub UserForm_Initialize" for the userform:

Lista.List = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")

But I want more spaces between month names in the listbox when it shows on the userform. How Can I do that?

Many thanks in advance for your help.

Kind Regards,

 

[MickG]

Try this:-
NB:- Change variable "Sp" (spaces required) in code to suit.

Private [COLOR="Navy"]Sub[/COLOR] UserForm_Initialize()
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] sp [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
sp = 6 '[COLOR="Green"][B] Enter Blank Rows between month, in Listbox here !!![/B][/COLOR]
[COLOR="Navy"]With[/COLOR] Me.ListBox1
  .Clear
[COLOR="Navy"]For[/COLOR] n = sp To sp * 12 + (sp - 1)
    [COLOR="Navy"]If[/COLOR] n Mod sp = 0 [COLOR="Navy"]Then[/COLOR]
       c = c + 1
        .AddItem MonthName(c)
    [COLOR="Navy"]Else[/COLOR]
        .AddItem " "
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[KeepTrying]

Dear Mick,

Many thanks for your quick help, code works great. However giving value 2 to "sp" takes too much space between month names (value 1 is the original spacing). So I'd need a value between 1 and 2 (let's say 1.5). Of course I cannot provide fractional number to "sp" (even if I change its declaration from long to double) because for MOD a fraction portion is just truncated. Do you have any idea how to achieve this?

Regards,