Userform Listbox' a üsten ekleme

[tamer42]

Merhaba,

Aşağıdaki kod ile Listbox' a yeni bir ekleme yaparken listenin en altına ekleme yapıyor,
yeni eklenen değeri listenin en üstüne ekleme yapılabilir mi?

Private Sub TextBox1_Change()
If Len(Me.TextBox1) = 13 Then
    Me.ListBox1.AddItem Me.TextBox1
    Me.TextBox1 = ""
End If

Me.TextBox1.SetFocus

End Sub

teşekkürler,
iyi pazarlar.

 

[Korhan Ayhan]

Deneyiniz.

Me.ListBox1.AddItem Me.TextBox1, 0

 

[tamer42]

Deneyiniz.

Me.ListBox1.AddItem Me.TextBox1, 0

teşekkürler, Korhan Hocam
çok sütunlu listbox' ta bu işlemi nasıl yapabiliriz?
Aşağıdaki kodu denedim ama bu sefer sadece ilk satırda veri yazıyor, öncekileri siliyor.

    ki = 0
With ListBox1

    .AddItem
    .List(ki, 0) = deg
    .List(ki, 1) =1
    .List(ki, 2) = 2
    .List(ki, 3) = 3
    .List(ki, 4) =4

End With

 

[tamer42]

teşekkürler, Korhan Hocam
çok sütunlu listbox' ta bu işlemi nasıl yapabiliriz?
Aşağıdaki kodu denedim ama bu sefer sadece ilk satırda veri yazıyor, öncekileri siliyor.

bu şekilde oldu sanırım;

With ListBox1
    .AddItem , 0
    .List(0, 0) = deg
    .List(0, 1) = 1
    .List(0, 2) =2
    .List(0, 3) = 3
    .List(0, 4) =4

End With