Here is what have now:

and here is how I would like the listbox to be shown

(i cheated when I made this image... its actually two separate listboxes made to look like its all one )
I googled the heck out of this trying to find something that would work, but the closest thing I could find was some windows code (not excel VBA)
this looks close to what I need but I would like to limit it to two columns.

My code right now for when the userform is initialized:

and here is how I would like the listbox to be shown

(i cheated when I made this image... its actually two separate listboxes made to look like its all one )
I googled the heck out of this trying to find something that would work, but the closest thing I could find was some windows code (not excel VBA)
this looks close to what I need but I would like to limit it to two columns.

My code right now for when the userform is initialized:
VBA Code:
Private Sub UserForm_Initialize()
'****
Me.StartUpPosition = 0
Me.Top = Application.Top + 200
Me.Left = Application.Left + 550
'****
Dim ws As Worksheet
Set ws = Worksheets("LookupLists")
'****
Dim xCus As Range
'****
lstCustomer.List = Sheet5.ListObjects("Table13").DataBodyRange.Value2
lstCustomer.ColumnCount = 2
'****
End Sub