Listbox'dan rastgale kayıtları textbox'a atma

[maxinus]

Merhaba,

Benim 3 tane listbox'ım var ve bunlara kayıt ekledim.Ben butona bastığım zaman bu 3 ayrı listbox'dan rastgale 1'er kayıt alacak ve 3 ayrı textbox'a bu kayıtları göstermesini istiyorum.(kayıtlar listbox'dan silinmeyecek)
Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Örneği inceleyin ve kendi dosyanıza uyarlamaya çalışın.

Private Sub CommandButton1_Click()
Randomize
TextBox1 = ListBox1.List(Int((ListBox1.ListCount * Rnd)), 0)
TextBox2 = ListBox2.List(Int((ListBox2.ListCount * Rnd)), 0)
TextBox3 = ListBox3.List(Int((ListBox3.ListCount * Rnd)), 0)
End Sub

Private Sub UserForm_Initialize()
ListBox1.AddItem "a"
ListBox1.AddItem "b"
ListBox1.AddItem "c"

ListBox2.AddItem "d"
ListBox2.AddItem "e"
ListBox2.AddItem "f"

ListBox3.AddItem "g"
ListBox3.AddItem "h"
ListBox3.AddItem "i"
End Sub