スキルアップ・問題解決なら、モーグにおまかせ！

下記のような２つの配列があります。
 
　myArray1 = Array("春", "夏", "秋", "冬")
　myArray2 = Array("あけぼの", "夜", "夕暮れ", "つとめて")
 
ユーザーフォームのリストボックスが２列あるとして、
１列目にmyArray1,２列目にmyArray2のデータを格納したいです。
 
このとき、１列目については、下記のコードで簡単に
リストボックスへデータを格納できます。
   ListBox1.List = myArray1
 
しかし、同じ要領で、リストボックスの２列目にデータを格納する方法が分かりません。
上記のように１行のコードで実現できる方法がありましたら、ご教授ください。
（左辺で２列目をどのように表せばよいでしょうか？）
 
※For構文などを使用して、複数行のコードであれば、２列目も対応できております。
　
　

2次元配列を作成しておいて、Listプロパティ（もしくはColumnプロパティ）に入れればよいと思います。
（Columnプロパティのヘルプにコード例が載っています。）

1行ではありませんが、比較的簡潔に。
 

Option Explicit
Option Base 1

Private Sub UserForm_Initialize()

  Dim myArray1 As Variant
  Dim myArray2 As Variant
  Dim myArray3(2) As Variant
  
  myArray1 = Array("春", "夏", "秋", "冬")
  myArray2 = Array("あけぼの", "夜", "夕暮れ", "つとめて")
  
  myArray3(1) = myArray1
  myArray3(2) = myArray2
  
  Me.ListBox1.List = WorksheetFunction.Transpose(myArray3)

End Sub

もちろん、一括設定ではなく、.List(i,j)要素に繰り返しで設定することもできるでしょう。

＞simpleさん、K.Hiwasaさん
 
ご回答ありがとうございます。
とても的確なご回答をいただき、感激しております。
今後とも、どうぞよろしくお願いいたします。
 
 
＞simpleさん
 
２次元配列・・・、知識はありましたが、
そのような発想がありませんでした。
 
ご返信を頂いてから、あれこれ試しておりますが、
二次元配列の理解が乏しいため、まだ再現できておりません。
もう少し時間をかければ、解決できると思います。
 
 
＞K.Hiwasaさん
１次元配列を２つ取り込んで、Transposeさせる
という発想も、思いつきませんでした。
コードを取り込んで、再現できました。