Tabs in ListBox

[vbgladiator]

Do Until rsClient.EOF
            lstResult.AddItem rsClient("LastName") & vbTab & rsClient("FirstName") & vbTab & rsClient("ClientCode")
            lstResult.ItemData(lstResult.NewIndex) = rsClient("ClientID")
            rsClient.MoveNext
        Loop
        
        SearchListTabs(1) = 50 
        SearchListTabs(2) = 120 
        
        SendMessage lstResult.hWnd, LB_SETTABSTOPS, UBound(SearchListTabs) + 1, SearchListTabs(1)
        lstResult.Refresh

Why doesn't this work? It only shows the LastName and then the line is blank.