Как ListBox-е добавить текст в две колонки? - VB

Private Const LB_SETTABSTOPS = &H192
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' _
    (ByVal Hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
Private mTabs(0 To 0) As Long
Sub FillListBox
    mTabs(0) = -List1.Width * 44 / 1000 + 2
    SendMessage List1.Hwnd, LB_SETTABSTOPS, 1, mTabs(0)
    List1.Clear
    List1.AddItem 'Первая колонка' & vbTab & 'Вторая колонка'
End Sub