.AddItem "Поле1" & vbTab & "Поле2"
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const LB_SETTABSTOPS As Long = &H192
Private Sub Form_Load()
SendMessage List1.hwnd, LB_SETTABSTOPS, 1, 100&
List1.AddItem "Поле1" & vbTab & "Поле2"
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 16