İlk olarak yeni bir form oluşturuyoruz ve adını duzenliyoruz.



Daha sonra ListBox ekliyoruz.



2 adet buton ekliyoruz.



Butonları isimlendiriyoruz.



Bir adet de textbox ekliyoruz.



Buton1e cift tıklıyoruz ve şu kodları yazıyoruz.

Kod:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click If TextBox1.Text = “” Then MsgBox(“Birisini giriniz.”) Else ListBox1.Items.Add(TextBox1.Text) TextBox1.Text = “” End If
Buton2ye ise şu kodları yazıyoruz.

Kod:
Dim cekilis As New Random Dim Cekilissayi As Integer = cekilis.Next(0, ListBox1.Items.Count – 1) ListBox1.SelectedIndex = Cekilissayi MsgBox(“Kazanan Kişi : ” & ListBox1.Text)
Tasarım ve kod kısmı bittiğinde ise programı calıştırıyoruz.



Cekilişe katılan kişileri ekliyoruz.



Kişi ekle butonuna tıklıyoruz.


ListBoxa yazdığımız değerler aktarılıyor.



Birkac kişiyi ekliyorum.



Cekiliş yap butonuna basıyorm.


Ve gorduğunuz gibi program calıştı.