List Wiew Otomatik satır geişliği

[Bakigemlik]

Merhaba,

Lşstwiev deki kodum aşağıdaki gibidir, ben burada listelendiğinde buradaki satır genişliklerini otomatik eklenmesini rica ediyorum, konu hakkında desteğinizi rica ederim,

Private Sub ListView1_Click()
Application.ScreenUpdating = False

 If Me.ListView1.SelectedItem.ListSubItems(1).Text = "" Then
            MsgBox "Seçtiğiniz Bölümde herhangi bir veri bulunmamaktadır..."
            Exit Sub
    End If
                
        Dim Satir As Integer
        For Satir = 1 To 8
           
            Me.ListView1.SelectedItem.ListSubItems(Satir).Bold = True
            Next
        ListView1.HotTracking = True
         

        

        
               
TextBox1.Text = Me.ListView1.SelectedItem.ListSubItems(1).Text
TextBox2.Text = Me.ListView1.SelectedItem.ListSubItems(2).Text
TextBox3.Text = Me.ListView1.SelectedItem.ListSubItems(3).Text
TextBox4.Text = Me.ListView1.SelectedItem.ListSubItems(4).Text
TextBox5.Text = Me.ListView1.SelectedItem.ListSubItems(5).Text
TextBox6.Text = Me.ListView1.SelectedItem.ListSubItems(6).Text
TextBox7.Text = Me.ListView1.SelectedItem.ListSubItems(7).Text
TextBox8.Text = Me.ListView1.SelectedItem.ListSubItems(8).Text
TextBox9.Text = Me.ListView1.SelectedItem.ListSubItems(9).Text
TextBox10.Text = Me.ListView1.SelectedItem.ListSubItems(10).Text
TextBox11.Text = Me.ListView1.SelectedItem.ListSubItems(11).Text
TextBox12.Text = Me.ListView1.SelectedItem.ListSubItems(12).Text
ComboBox1.Text = Me.ListView1.SelectedItem.ListSubItems(13).Text
TextBox17.Text = Me.ListView1.SelectedItem.ListSubItems(14).Text

TextBox15.Text = Me.ListView1.SelectedItem.ListSubItems(15).Text
Application.ScreenUpdating = True
End Sub

 

[Orion1]

satır genişliği için bir işlem yapılamaz diye biliyorum.
Ama sütun genişliği yapılabilir.