Veri aktarma kodu her çalıştığında Listbox küçülüyor

[sdegirmenci]

Merhaba,
Ekteki dosyam üzerinde açıkladığım gibi çalışma kitabını yeni açtığımda veya veri eklemek için mevcut kodu çalıştırdığımda ListBox her defasında küçülmekte, Sebebini bir türlü anlayamadım, yardımcı olabilirseniz sevinirim.

 

[excel03]

Grup olarak ekle butonunun(CommandButton1) sonuna ve ListBox1_Click'in sonuna aşağıdaki kodları ekleyip tekrar deneyiniz.

With ListBox1
.Left = 45
.Top = 390
.Height = 175
.Width = 600
End With

 

[sdegirmenci]

Merhaba;
sayın excel03 İlginize çok teşekkür ederim,kodları ilave ettim.her defasında boyutu eski haline getiriyor.Bu küçülmenin sebebini hala anlayabilmiş değilim. Tekrar teşekkür ediyorum.İşleriniz kolay gelsin.