Contact: aviboots(AT)netvision.net.il
39,885 questions
51,811 answers
573 users
Imports System Public Class Program Public Shared Sub Main() Dim rnd As Random = New Random() Dim str As String = rnd.Next(0, 1000000).ToString("D6") Console.WriteLine(str) End Sub End Class ' run: ' ' 924638 '