我怎么样将一个表的第一列放到ListBox1中??对数组不通

Private Sub UserForm_Initialize()

      Dim arr As Variant
      t = Sheets(1).[iv1].End(xlToLeft).Column
      arr = Sheets(1).Range(Cells(1, 1), Cells(1, t))  
     
With Me.ListBox1
         For i = 0 To UBound(arr, 2)         这句报越界了.....要怎么这个循环???
     .List = arr(1, i)
          Next
          .ListStyle = 1
          .MultiSelect = 1
      End With
  End Sub

我如果写

Private Sub UserForm_Initialize()
    Dim arr As Variant
    With Sheets(1)
        t = .[iv1].End(xlToLeft).Column
        arr = .Range(.Cells(1, 1), .Cells(1, t))
    End With
    With Me.ListBox1
        .ListStyle = 1
        .MultiSelect = 1
        .List = WorksheetFunction.Transpose(arr)
    End With
End Sub

理解不了。。。请指教·！！
zhaogang1960 ，好久不见，去年得到你的字典方法指教 。。。。。