راهنمایی برای برنامه صندوق قرعه کشی

[teymoorei]

سلام دوستان
یه برنامه می خوام که پنج قلک که پشت هر کدوم یه امتیازی باشه ممکنه یکی پوچ باشه و هر کدومو زد عددش رو نمایش بده
مثلا 5 کلید که هر کدوم رو زد یک عدد رو نمایش بده حالا این اعداد یا 100 یا 200 یا 400 یا پوچ یا 1000 هستش یعنی هرکدوم باید یکی از این ها باشه که به صورت رندم انتخاب میشه .
لطفا راهنمایی کنید فردا باید برنامه رو تحویل بدم .
باتشکر

[mehdi_79]

می تونی این را امتحان کنی

Private Sub randomm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles randomm.Click
Dim ran As New Random
Dim n As Integer
n = ran.Next(1, 6)
n = n * 100
If n = 300 Then
n = 0
End If
If n = 500 Then
n = 1000
End If
randomm1.Text = n
End Sub

[teymoorei]

مرسی اینم کد خودم
Dim names = New List(Of String)() From {100, 200, 400, "پوچ", 10000}
Dim ran As New Random()
Dim index As String = ran.[Next](names.Count)
Dim name = names(index)
Form2.Label1.Text = name.ToString()