Private Sub Form_Load()

'Must be a long or integer array
Dim mTabs(0) As long

'Set the a tab stop to a negative number
mTabs(0) = -40
SendMessage List1.hwnd, LB_SETTABSTOPS, 1, mTabs(0)
List1.Clear
List1.AddItem vbTab & "21321"
List1.AddItem vbTab & "2321"
List1.AddItem vbTab & "2411"
List1.AddItem vbTab & "12"
List1.AddItem vbTab & "12142"
List1.AddItem vbTab & "2221"
List1.Refresh

End Sub