divider lines to multi column list box

[waltron]

i have a multi column listbox with 3 columns, i would like to add verticle divider lines how is this done.

this is my current code:

Sub LoadlistBox1()


Dim lbtarget As MSForms.ListBox
Dim rngsource As Range

Set rngsource = Worksheets("Sheet5").Range("A340")

Set lbtarget = Me.ListBox1

With lbtarget
.ColumnCount = 4
.ColumnWidths = "60;192;60;60"
.List = rngsource.Cells.Value
End With

End Sub