Я можу i на Українськiй писати , а ти мене поймеш?

Public Class Form1
    'объявляем генератор случайных чисел
    Private _rnd As New Random

    Private Sub LoadList()
        'очищаем ListView1 перед заполнением
        ListView1.Items.Clear()

        'делаем кнопку недоступной т.к. ни один элемент не выбран
        Button1.Enabled = False

        'заполняем ListView1 в цикле n-ным количеством записей
        For Int As Integer = 1 To _rnd.Next(12, 20) Step 1
            'добавляем запись с названием клуба,
            'номер клуба берем из текущего значения счетчика цикла
            ListView1.Items.Add("Клуб №" & Int) 'данные вписываются в первую колонку
            'добавляем к созданной записи, данные о количестве болельщиков
            ListView1.Items(Int - 1).SubItems.Add(_rnd.Next(20, 50)) 'данные вписываются во вторую колонку
        Next Int
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'устанавличваем стандартные настройки формы и всех их элементов:

        'настройки формы (Form1):
        Me.Text = "Список клубов"
        Me.Size = New Size(300, 300) 'размер
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle 'стиль рамки (фиксированный)
        'скрытие кнопок минимизирования и максимизирования
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        'скрытие иконки формы
        Me.ShowIcon = False

        'настройки листа (ListView1):
        ListView1.Location = New Point(12, 12) 'позиция
        ListView1.Size = New Size(268, 213) 'размер
        ListView1.GridLines = True 'показ разделительных линий
        ListView1.FullRowSelect = True 'выделение всей строки
        'добавляем колонки (Columns)
        ListView1.Columns.Add("Наименование клуба", 130)
        ListView1.Columns.Add("Кол. болельщиков", 115)
        'заполняем лист
        LoadList()

        'настройки кнопки (Button1):
        Button1.Location = New Point(12, 231) 'позиция
        Button1.Size = New Size(268, 23) 'размер
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        'проверяем выбрана ли запись или нет
        If ListView1.SelectedItems.Count > 0 Then
            'если количество выбранных записей больше 0, то
            'делаем кнопку Button1 доступной
            Button1.Enabled = True
        Else
            'иначе делаем кнопку Button1 недоступной
            Button1.Enabled = False
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'создаем в цикле столько форм, сколько выделено элементов
        For Each itm As ListViewItem In ListView1.SelectedItems
            'создание формы
            Dim Form As New Form
            Form.Text = "Подробная информация"
            Form.Size = New Size(300, 300) 'размер
            Form.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle 'стиль рамки (фиксированный)
            'скрытие кнопок минимизирования и максимизирования
            Form.MaximizeBox = False
            Form.MinimizeBox = False
            'скрытие иконки формы
            Form.ShowIcon = False

            'создание элементов формы
            Dim Label1 As New Label 'надпись
            Label1.Location = New System.Drawing.Point(12, 9) 'позиция
            Label1.Name = "Label1" 'имя
            Label1.Size = New System.Drawing.Size(118, 13) 'размер
            Label1.Text = "Наименование клуба:"

            Dim Label2 As New Label 'надпись
            Label2.Location = New System.Drawing.Point(12, 36) 'позиция
            Label2.Name = "Label2" 'имя
            Label2.Size = New System.Drawing.Size(145, 13) 'размер
            Label2.Text = "Список всех болельщиков:"

            Dim Label3 As New Label 'надпись
            Label3.Location = New System.Drawing.Point(12, 23) 'позиция
            Label3.Name = "Label3" 'имя
            Label3.Size = New System.Drawing.Size(141, 13) 'размер
            Label3.Text = "Количество болельщиков:"

            Dim lbl_Name_Cluba As New Label 'надпись
            lbl_Name_Cluba.Location = New System.Drawing.Point(163, 9) 'позиция
            lbl_Name_Cluba.Name = "lbl_Name_Cluba" 'имя
            lbl_Name_Cluba.Size = New System.Drawing.Size(118, 15) 'размер
            lbl_Name_Cluba.Text = itm.Text

            Dim lbl_Col_Bol As New Label 'надпись
            lbl_Col_Bol.Location = New Point(163, 23) 'позиция
            lbl_Col_Bol.Name = "lbl_Col_Bol" 'имя
            lbl_Col_Bol.Size = New Size(118, 13) 'размер
            lbl_Col_Bol.Text = itm.SubItems(1).Text
            'вписываем количество болельщиков и
            'разделение их на группы, используя
            'структуру Select... Case...
            Select Case itm.SubItems(1).Text
                Case 20 To 30
                    lbl_Col_Bol.Text &= " (мало)"
                Case 31 To 40
                    lbl_Col_Bol.Text &= " (нормально)"
                Case 41 To 50
                    lbl_Col_Bol.Text &= " (много)"
            End Select

            Dim txt_List_Bol As New TextBox 'текстовое поле
            txt_List_Bol.Location = New Point(12, 52) 'позиция
            txt_List_Bol.Multiline = True 'многострочность
            txt_List_Bol.ScrollBars = ScrollBars.Vertical 'установка вертикального ползунка
            txt_List_Bol.Name = "txt_List_Bol" 'имя
            txt_List_Bol.ReadOnly = True 'запрет редактирования
            txt_List_Bol.Size = New Size(268, 202) 'размер
            'заполняем поле в цикле, количество берем из ListView1
            For Int As Integer = 1 To itm.SubItems(1).Text
                'добавляем строку и переходим на следующую
                'номер болельщика берем из текущего значения счетчика цикла
                txt_List_Bol.Text &= "Болельщик №" & Int & vbCrLf
            Next

            'добавление элементов на форму
            Form.Controls.Add(Label1)
            Form.Controls.Add(Label2)
            Form.Controls.Add(Label3)
            Form.Controls.Add(lbl_Name_Cluba)
            Form.Controls.Add(lbl_Col_Bol)
            Form.Controls.Add(txt_List_Bol)

            'показ формы в режиме диалога
            Form.ShowDialog()
        Next
    End Sub
End Class