Const LB_SETSEL = &H185
Сообщение LB_SETSEL задает состояние выделения строки в списке с множественным выделением. Аналогично свойству Visual Basic Selected. Для списка с одиночным выделением используйте LB_SETCURSEL
В успешном случае возвращается 0. В случае ошибки сообщение возвращает LB_ERR
' Выделим первую и третью строку списка ' Поместите на форме список List1 с множественным ' выделением Dim lRet As Long ' возвращаемое значение ' Сначала снимем выделение со всех строк lRet = SendMessage(List1.hWnd, LB_SETSEL, ByVal 0, ByVal CLng(-1)) ' Теперь выделяем первую и третью строки lRet = SendMessage(List1.hWnd, LB_SETSEL, ByVal 1, ByVal 0) lRet = SendMessage(List1.hWnd, LB_SETSEL, ByVal 1, ByVal 2)