Merhaba arkadaslar..

Yapmak istedigim Listbox1 icinde 1'den 20'ye kadar sayilar var.. Ben bunlari Listbox2 icine Rastgele eklemek istiyorum..

Kistaslar
-Listbox2 icinde bir sayi iki defa bulunmamali..
-Listbox1 icindeki tum sayilar listbox2 icinde yer almali..

Bir nevi Sayilari karisitirip hepsini tekrar eklemek istiyorum..

PHP Code:
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 20
ListBox1.Items.Add(i)
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
karistir(ListBox1, ListBox2)
End Sub
Public Sub karistir(ByVal FromList As System.Windows.Forms.ListBox, ByVal ToList As System.Windows.Forms.ListBox)
While ToList.Items.Count FromList.Items.Count
Dim randompick As New Random
Dim sayi As Integer
sayi = randompick.Next(0, FromList.Items.Count - 1)
Dim var As Integer
var = ToList.FindStringExact(sayi)
If var = -1 Then
ToList.Items.Add(sayi)
End If
End While
MsgBox("Karistirma islemi basari ile yapildi")
End Sub
End Class


Benim kodlarim bu sekilde. butona tikladigimda program yanit vermiyor.. bekledim bir iki dakika belki son bir kac sayiyi eklemesi uzun surer diye ama sonuc alamadim..
Nerede yanlis yapiyorum. ?
__________________