Mscomctl -

' Add item Dim itm As ListItem Set itm = ListView1.ListItems.Add(, , "MyFile.txt") itm.SubItems(1) = "1.2 KB" itm.SmallIcon = "file" End Sub | Use case | Recommendation | |----------|----------------| | Maintaining legacy VB6 app | Acceptable, but plan migration. Use version 6.1.98.48 or later. | | New VB6 development | Strongly discouraged – use WinForms or WPF instead. | | Migration to .NET | Rewrite UI – do not wrap mscomctl in .NET. | | Enterprise LOB apps | Avoid due to security and 32-bit limitations. | | Hobby / retro computing | Works fine on WinXP/Win7 VMs. |

' Add columns ListView1.ColumnHeaders.Add , , "Name" ListView1.ColumnHeaders.Add , , "Size"

Личный кабинет пациента

Контакты клиники
"Медцель"

Контактный номер:

Запись online

Соцсети, мессенджеры:

VK Telegram WhatsApp

Режим работы:

Пн-Сб: с 09:00 до 20:00
Вс: 09:00 до 17:00

Наш адрес:

Москва, ул. Островитянова, 25, к.1
м.Коньково

Проложить маршрут в навигаторе

Запишитесь на первичную
консультацию:

mscomctl

Заказать звонок

Услуги

Диагностика

Врачи

Клиника «Медцель»

mscomctl

© 2026 «Медцель».
Все права защищены.
ООО" Мечта" Лицензия № ЛО-77-01-018893

ВЕРСИЯ ДЛЯ СЛАБОВИДЯЩИХ

Версия для слабовидящих

' Add item Dim itm As ListItem Set itm = ListView1.ListItems.Add(, , "MyFile.txt") itm.SubItems(1) = "1.2 KB" itm.SmallIcon = "file" End Sub | Use case | Recommendation | |----------|----------------| | Maintaining legacy VB6 app | Acceptable, but plan migration. Use version 6.1.98.48 or later. | | New VB6 development | Strongly discouraged – use WinForms or WPF instead. | | Migration to .NET | Rewrite UI – do not wrap mscomctl in .NET. | | Enterprise LOB apps | Avoid due to security and 32-bit limitations. | | Hobby / retro computing | Works fine on WinXP/Win7 VMs. |

' Add columns ListView1.ColumnHeaders.Add , , "Name" ListView1.ColumnHeaders.Add , , "Size"

Продолжая использовать сайт, вы соглашаетесь с политикой использования файлов cookie.