توليد أرقام عشوائيه

Dim RndNum As String = 0
Do Until RndNum.Length = 14
	 RndNum = Int(Rnd() * 10 ^ 14)
Loop

ولكن هذه الطريقة.. ستولد نفس الأرقام العشوائية في كل مرة يشتغل فيها البرنامج.. ولحل هذه المشكلة.. في الاجراء الحدثي لتحميل الفورم:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
   Randomize()
End Sub

شكرا اخي على هذا الرد الجميل ربنا يحفظك ويزيدك علما غلى عملك

العفو اخوي ya as .. واياك ان شاء الله