Populating a ListBox with Columns Using Pre-Filled Array

[jbennett01]

How can I get this ListBox to display the states in 2 columns. I've tried a few different things, including modifying the ListBox properties, tried in code. The solutions I've found online all deal with a dynamic array and I could not figure out how to convert that to a static one. This is code from the Form object and the code which calls the Form.

Private Sub UserForm_Initialize()

    ' Declare variables
    lstStateCodes1 = Array("AK", "AL", "AR", "AZ", "CA", "CO", "CT", "DC", "DE", "FL", "GA", "HI", "IA", "ID", "IL", "IN", "KS", _
        "KY", "LA", "MA", "MD", "ME", "MI", "MN", "MO")
    lstStateCodes2 = Array("MS", "MT", "NC", "ND", "NE", "NH", "NJ", "NM", "NV", "NY", "OH", "OK", "OR", _
        "PA", "PR", "RI", "SC", "SD", "TN", "TX", "UT", "VA", "VI", "VT", "WA", "WI", "WV", "WY")
    With Me.lstStateList
        .ColumnCount = 2
        .ColumnWidths = 50
        .List(1, 0) = lstStateCodes1
        .List(2, 0) = lstStateCodes2
    End With
    lstForeclosureType = Array("Judicial", "Non Judicial")
    lstOccupancyStatus = Array("Abandoned", "Occupied By Unknown", "Owner Occupied", "Removed or Destroyed", "Tenant Occupied", "Unknown", "Vacant")
    lstFCLStatus = Array("Active", "Inactive", "On Hold")

End Sub

sub test ()
    Dim frmReport As New frmManualUploadReport

    Load frmReport
    frmReport.Show
    Unload frmReport

End Sub

 

[Legacy 143009]

Maybe like this:

Private Sub UserForm_Initialize()

    ' Declare variables
    lstStateCodes = Array("AK", "AL", "AR", "AZ", "CA", "CO", "CT", "DC", "DE", "FL", "GA", "HI", "IA", "ID", "IL", "IN", "KS", _
        "KY", "LA", "MA", "MD", "ME", "MI", "MN", "MO", "MS", "MT", "NC", "ND", "NE", "NH", "NJ", "NM", "NV", "NY", "OH", "OK", "OR", _
        "PA", "PR", "RI", "SC", "SD", "TN", "TX", "UT", "VA", "VI", "VT", "WA", "WI", "WV", "WY")
    With Me.lstStateList
        .ColumnCount = 2
        .ColumnWidths = 50
        On Error Resume Next
        For i = LBound(lstStateCodes) To UBound(lstStateCodes) / 2
          .AddItem
          .List(i, 0) = lstStateCodes(i)
          .List(i, 1) = lstStateCodes(((UBound(lstStateCodes) / 2) + 1) + i)
        Next
        On Error GoTo 0
    End With
    lstForeclosureType = Array("Judicial", "Non Judicial")
    lstOccupancyStatus = Array("Abandoned", "Occupied By Unknown", "Owner Occupied", "Removed or Destroyed", "Tenant Occupied", "Unknown", "Vacant")
    lstFCLStatus = Array("Active", "Inactive", "On Hold")
End Sub

 

[jbennett01]

Maybe like this:

Private Sub UserForm_Initialize()

    ' Declare variables
    lstStateCodes = Array("AK", "AL", "AR", "AZ", "CA", "CO", "CT", "DC", "DE", "FL", "GA", "HI", "IA", "ID", "IL", "IN", "KS", _
        "KY", "LA", "MA", "MD", "ME", "MI", "MN", "MO", "MS", "MT", "NC", "ND", "NE", "NH", "NJ", "NM", "NV", "NY", "OH", "OK", "OR", _
        "PA", "PR", "RI", "SC", "SD", "TN", "TX", "UT", "VA", "VI", "VT", "WA", "WI", "WV", "WY")
    With Me.lstStateList
        .ColumnCount = 2
        .ColumnWidths = 50
        On Error Resume Next
        For i = LBound(lstStateCodes) To UBound(lstStateCodes) / 2
          .AddItem
          .List(i, 0) = lstStateCodes(i)
          .List(i, 1) = lstStateCodes(((UBound(lstStateCodes) / 2) + 1) + i)
        Next
        On Error GoTo 0
    End With
    lstForeclosureType = Array("Judicial", "Non Judicial")
    lstOccupancyStatus = Array("Abandoned", "Occupied By Unknown", "Owner Occupied", "Removed or Destroyed", "Tenant Occupied", "Unknown", "Vacant")
    lstFCLStatus = Array("Active", "Inactive", "On Hold")
End Sub

Unfortunately, that did not work, though I appreciate the effort. For now, I've just given up

 

[Legacy 143009]

What do you mean by didn't work? I've tested it.
What is the error exactly you are getting?

 

[jbennett01]

What do you mean by didn't work? I've tested it.
What is the error exactly you are getting?

I'm not getting an error. Nothing shows up in the ListBox.

 

[Legacy 143009]

Weird.. Ok...