randomize

dim a as new random 
label1.text = a.next (1,25)

يسلمو اخي بس

المشكلة مو هون المشكلة انو بدي يظهرو كل الارقام من 1 ل 25 بشكل عشوائي مو بس رقم واحد

ياريت في رد بكون ممنونتك

dim a as new random 
dim i as int32
for i = 1 to 25
msgbox (a.next (1,25))
next

اخى العزيز Moudar فى الكود الذى ارسلته من الممكن ان يتكرر الرقم و انا قمت بوضع الكود التالى الذى يقوم باضافة الارقام فى Listbox و لكن لن يوجد رقم مكرر

 ListBox1.Items.Clear()
		Dim f, Count As Integer
		Count = 0
		Randomize()
		Dim RndNo As New Random
		f = RndNo.Next(1, 26)
		While Count < 25
			If ListBox1.Items.Contains(f) Then
				f = RndNo.Next(1, 26)
			Else
				ListBox1.Items.Add(f)
				Count += 1
			End If
			f = RndNo.Next(1, 26)
		End Whiled While

اخي لسا عم يظهر رقم واحد بس

انا بدي ياهون يظهرو كلون

سوري عم عزبك معي