|
Private Declare Function SendMessageArray Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Const LB_SETTABSTOPS = &H192 ReDim lTabs(5) As Long lTabs(0) = 17 lTabs(1) = 89 lTabs(2) = 187 lTabs(3) = 289 lTabs(4) = 383 Call SendMessageArray(List1.hwnd, LB_SETTABSTOPS, 0&, 0&) Call SendMessageArray(List1.hwnd, LB_SETTABSTOPS, 5&, lTabs(0)) 'Per aggiungere un item bisogna usare la tabulazione come 'separatore di colonna: List1.AddItem "Col1" & Chr$(9) & "Col2" & Chr$(9) & "Col3" Come creare colonne in una ListBox |