listbox sütun genişliği ayarı

[acar6783]

Merhaba;

Userformu açında tam ekran yapan kodlar var bunu çalıştırınca.
Listboxın sütün genişlikleri aynı kalıyor ne yapmalıyım?
Aslında columnwidths ayarını listboxın hemen üstünde duran labellardan alabilirsek sanırım sorun çözülür? (Sanırım )

Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next

 

[Emir Hüseyin Çoban]

. . .

End Sub satırından önce

ListBox1.ColumnWidths = Int(Label1.Width) & ";" & Int(Label2.Width)

. . .

 

[acar6783]

. . .

End Sub satırından önce

ListBox1.ColumnWidths = Int(Label1.Width) & ";" & Int(Label2.Width)

. . .

Uyarladım ,
Tam istediğim gibi oldu teşekkürler