エクセルVBAのリストボックスの列指定方法について

Question

前提・実現したいこと

エクセルVBAのリストボックスで各変数に格納したデータを2列に表示させたいです。
列指定ができなくて，1列しか表示できません。
変数　Tsを1列目　Ts2を2列目に表示する場合どのようにしたらよいでしょうか？
ご教授をお願いいたします。

該当のソースコード

'**************************************************************************
'　　　　ユーザーフォーム初期化
'**************************************************************************
Private Sub UserForm_Initialize()
Dim rC, i, i2, X, G, G2 As Integer
Dim Tk(), Tk2() As String
Dim Ts(), Ts2() As String
rC = Sheet4.Cells(Rows.Count, 3).End(xlUp).Row + 1
On Error GoTo tobi1
X = 0
Y = 0
ReDim Tk(1 To rC)
With Sheet4
For i = 1 To rC - 4
'該当範囲からデータを取得する
ReDim Preserve Ts(X)
Tk(i) = Sheet4.Cells(rC - i, 3)
If Not (Tk(i) = "") Then
For G = 0 To X
If Tk(i) = Ts(G) Then
Y = 1
End If
Next G
If Y <> 1 Then
Ts(G - 1) = Tk(i)
X = X + 1
End If
Y = 0
End If
Next i

   ReDim Tk2(1 To rC)             
    For i2 = 1 To rC - 4 
     ReDim Preserve Ts2(X)           
        Tk2(i2) = Sheet4.Cells(rC - i2, 4) 
        If Not (Tk2(i2) = "") Then 
                   For G2 = 0 To X 
                 If Tk2(i2) = Ts2(G2) Then 
                    Y = 1 
                 End If 
               Next G2 
               If Y <> 1 Then 
                   Ts2(G2 - 1) = Tk2(i2) 
                   X = X + 1 
               End If 
               Y = 0 
        End If 
    Next i2 
  End With   
With UserForm2 
    ListBox1.List() = Ts                 
   ListBox1.List() = Ts2 
   ListBox1.SetFocus                                              
   ListBox1.ListIndex = 0                                              
End With 

tobi1:

End Sub

Comments

[meg_]

コードは「コードの挿入」で記入してください。

Answer 1

別の回答にあるリンク先を見たとのことですが、同じような処理になっているとは思えません。
リンク先の説明では、2次元配列を作成しListに代入していますが、今は1次元配列を2回代入していますよね。

Dim Ts(), Ts2() As String 
ListBox1.List() = Ts                 
ListBox1.List() = Ts2 

1次元配列だから1列にしか入りませんし、2回やっているので2回目のもので上書きされてしまいます。
2次元配列を作成するように作りなおしてみてください。

Answer 2

下記サイトが参考になります。

複数列のリストボックス

Comments

[xxmotosxx]

ありがとうございます。
そのサイトは確認しColumnCountプロパティも設定したのですが、1列しか表示されないので、質問いたしました。

[meg_]

質問への依頼欄にも書きましたが、コードが読みにくいのでコードは「コードの挿入」で記入してください。