Bonjour à tous
---------------------
Comment faire pour placer des tabulations dans un ListBox,donc créer des colonnes grace à l' API Windows je cherche avec ce code mais ca ne fonctionne pas! où est mon erreur?.
=====================
' Dans un module
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As
Long) As Long

Const WM_USER = &H400
Const LB_SETTABSTOPS = WM_USER + 19



============================

' Dans le load de la form

Dim lResponse As Long
Dim nNbTab As Long
Dim nTab(5) As Long

nTab(0) = 15 ' 15 correspond a la premiere tabulation
nTab(1) = 30 ' 30 correspond a la deuxieme tabulation
....
nNbTab = 3 ' 3 correspond nombre de tabulations a
placer

lResponse = SendMessage(ListeArticles.hwnd, LB_SETTABSTOPS, nNbTab, nTab(0))

Merci .