otomatik columb widht ve label ayarlama

[crpzz37]

selamun aleykü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 - 20
Y1 = Application.Height - 20
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

kodu ile ekranımı ve nesnelerimi ekran boyutuna gore otomatik buyuturum ama sayfamda 2 tane listboxum var bu listboxuma verileri listadditem ile alıyorum o yuzden sutun baslıklarını listboxun ustune label olarak ekledım ve columb widht leri elimde ayarlayarak girdim ama benim ekranımdan büyük bir ekrana geçince nesneler ve ekran orantılı olarak büyüyor ama columb widhtler eskisi gibi kaldıgı için listbox içinde dağılıyorlar bunu nasıl çözebilirim
columb widhltleri nasıl ekrana göre ayarlayabilrim

 

[crpzz37]

arkadaşlar veya şimdi aklıma geldi burdaki widht büyütme oranı olan CX kodunu
listbox2.columnwidht ="60 + CX ; 100 "
şeklinde yazmaya çalıştım ama olmadı ama demek istediğimi anladınız o oranı widht e nasıl bağlayabilirim oraya nasıl yazabilirm

 

[crpzz37]

yani columnwidht e değişken atamak

 

[crpzz37]

çözümünü buldum beyler belki birine lazım olur

ListBox1.ColumnWidths = genislik1 & ";" & genislik2 & ";" & genislik3 & ";" & genislik4 & ";" & genislik5 & ";" & genislik6 & ";" & genislik7 & ";" & genislik8 & ";"

genişliğide o sayfa büyütme kodundan sonra baslıkta bulunan label widht e bağlayın