Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Global Const LB_SetTabStops = &H192
...
Dim lbTabs(0 To 1) As Long, res As Long
lbTabs(0) = 140
lbTabs(1) = 200
res = SendMessage(Me.lst.hWnd, LB_SetTabStops, 2, lbTabs(0))
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 24