Userform: Tie Listbox Items and Label vertical position

[wist]

Hai,

I have a userform which is driving me crazy. It has a ListBox with a bunch of items and next to it labels that give info about the listbox items but they do not alight properly when I have too many items. I can't figure out how to tie them together or at least make it look like so:

Couple of items look just fine: https://ibb.co/znkHpNN

But a lot of items don't align anymore: https://ibb.co/cDywFnY

This is the part of the code I used for labels but it seems when I use decimal places for .Top property it doesn't do what I need. For example 4.2 adds more spacing than 4.5, any idea why?

       With textUSD
            .Name = "USD" & i
            .Caption = Format(Round(wb.Sheets(1).Cells(i + 1, 1).Value, 2), "standard")
            .TextAlign = fmTextAlignCenter
[B]            .Top = 4.5 + j[/B]
            .Left = -5
        End With
        
        With checks
            .Name = "Check" & i
            .Caption = wb.Sheets(1).Cells(i + 1, 2).Value
            .Font.Name = "Wingdings 2"
            .Font.Charset = 2
            .Font.Size = 11
         If .Caption = "O" Then .ForeColor = RGB(255, 0, 0) Else .ForeColor = RGB(0, 176, 80)
            .TextAlign = fmTextAlignCenter
[B]            .Top = 4.5 + j[/B]
            .Left = -18
        End With

j = j + 9.5

 

[Akuini]

I don't know how to do that, but just a thought, why not use another 2 listbox to show all the labels & the check mark? so it can be aligned easily.

 

[wist]

I don't know how to do that, but just a thought, why not use another 2 listbox to show all the labels & the check mark? so it can be aligned easily.

that's not a bad idea at all ...I can just modify the new listbox so there are no borders and insert it into the frame just as I have now ...thanks Akuini

It's not super elegant so if anyone has a better idea I'm all eyes

 

[wist]

OK, I have the first listbox aligned but the one with Checks is not aligned because the Font is different (

 

[Akuini]

The check mark is in the third listbox, right?
How do you populate it to the listbox? Using AddItem?
What font are you using?

 

[Akuini]

Using 3 listbox, here's what I got:

 

[wist]

The check mark is in the third listbox, right?
How do you populate it to the listbox? Using AddItem?
What font are you using?

your listboxes look quite neat, yes I am using AddItem ...what code or font did you use for the check marks ?

       With ZeroBox           
            .AddItem wb.Sheets(1).Cells(i + 1, 2).Value
            .Font.Name = "Wingdings 2"
            .Font.Charset = 2
            .Locked = True
            .Font.Size = 11
        End With

sadly I also wanted to have checkmarks green and eXes red but that's not possible with the listbox I think

 

[Akuini]

your listboxes look quite neat, yes I am using AddItem ...what code or font did you use for the check marks ?

Using this:

For i = 1 To 40
ListBox3.AddItem ChrW(&H2713)
Next

sadly I also wanted to have checkmarks green and eXes red but that's not possible with the listbox I think

No, I don't think it possible.

 

[wist]

Thanks again Akuini this works great now if I could just make the crosses red and checks green :P