listbox sütun genişliği

[airborne]

Private Sub UserForm_Initialize()
Set Baglan = CreateObject("Adodb.connection")
Baglan.provider = "Microsoft.jet.oledb.4.0"
Baglan.Open "c:\Personel\veri.mdb"
Label1.Caption = "Veri Tabanı ile bağlantı kuruldu."
StrSql = "select tc & adi_soyadi & dk &terfi from veri"
Set RS = Baglan.Execute(StrSql)
ListBox4.Column = RS.getrows(RS.RecordCount)
ListBox4.ColumnWidths = 250 & ";" & 250 & ";" & 500 & ";" & 250
RS.Close
End Sub

böyle bir kodum var ama bir türlü listbox'ın sütun genişliğini ayarlayamadım. sebebi nedir acaba

 

[halit3]

bu kodu denermisin
sayfadaki sutun genişliğinin aynısını veriyor

ListBox4.ColumnHeads = True
kolon=10
ListBox4.ColumnCount = kolon
Set sh = Sheets(ActiveSheet.Name)
For a = 1 To kolon
yer = sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
ListBox4.ColumnWidths = deg

 

[airborne]

benim kodum ;

Private Sub UserForm_Initialize()
Set Baglan = CreateObject("Adodb.connection")
Baglan.provider = "Microsoft.jet.oledb.4.0"
Baglan.Open "c:\Personel\veri.mdb"
Label1.Caption = "Veri Tabanı ile bağlantı kuruldu."
StrSql = "select tc & adi_soyadi & dk &terfi from veri"
Set RS = Baglan.Execute(StrSql)
ListBox4.Column = RS.getrows(RS.RecordCount)
ListBox4.ColumnHeads = True
kolon=10
ListBox4.ColumnCount = kolon
Set sh = Sheets(ActiveSheet.Name)
For a = 1 To kolon
yer = sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
ListBox4.ColumnWidths = deg
RS.Close
End Sub


bu şekildemi olacak

 

[airborne]

üstadlar halledemedim. lütfen yardımcı olun