سؤال: توليد حروف عشوائية

Function GetKey(ByVal Count As Integer) As String
		''LOWER CASE
		'Dim Min As Integer = 97
		'Dim Max As Integer = 122

		'UPPER CASE
		Dim Min As Integer = 65
		Dim Max As Integer = 90

		Dim CharCount As Integer = Count
		Dim Result As String = ""
		For i As Integer = 1 To CharCount

			Threading.Thread.Sleep(10)

			Application.DoEvents()
			Dim KeyID As Integer = New Random().Next(Min, Max)
			Dim c As Char = Chr(KeyID)
			Result = Result & c.ToString
		Next

		Return Result
	End Function