Можно ли сделать выравнивание текста в ListView? - VB

Формулировка задачи:

По умолчанию текст в столбце ListView прижат к левому краю. Есть ли способ выровнять по центру или по правому краю?

Решение задачи: «Можно ли сделать выравнивание текста в ListView?»

textual
                            Листинг программы 
                        

                            With Me.ListView0.Object
        .SmallIcons = ImageList1.Object
        .View = lvwReport
        .ColumnHeaders.Add 1, , "Items", 1000
        .ColumnHeaders.Add 2, , "SubItems1", 1500
        'Здесь создание строк 
        .................................
        'Попытка сделать выравнивание по правому краю для второго созданного столбца SubItems1. 
        .ColumnHeaders("SubItems1").Alignment = lvwColumnRight  

                        