Dim $result
Func RandomLetter($flag = 0, $upper = 0, $repeat = 1)
	If $flag < 0 Or $flag > 2 Then Return SetError(1, 0, 0)

	If $upper < 0 Or $upper > 1 Then Return SetError(2, 0, 0)

	If $repeat < 0 Then Return SetError(3, 0, 0)

	If $flag = 0 Then
		$range1 = 97
		$range2 = 122

	ElseIf $flag = 1 Then
		$range1 = 0
		$range2 = 5

	ElseIf $flag = 2 Then
		$range1 = 0
		$range2 = 19

	EndIf
	If $flag = 0 Then
		For $count = $repeat To 0 Step -1
			$rand = Random($range1, $range2, 1)
			$result &= Chr($rand)
		Next

	ElseIf $flag = 1 Then
		For $count = $repeat To 0 Step -1
			$rand = Random($range1, $range2, 1)
			If $rand = 0 Then $result &= "a"
			If $rand = 1 Then $result &= "e"
			If $rand = 2 Then $result &= "i"
			If $rand = 3 Then $result &= "o"
			If $rand = 4 Then $result &= "u"
			If $rand = 5 Then $result &= "y"
		Next

	ElseIf $flag = 2 Then
		For $count = $repeat To 0 Step -1
			$rand = Random($range1, $range2, 1)
			If $rand = 0 Then $result &= "b"
			If $rand = 1 Then $result &= "c"
			If $rand = 2 Then $result &= "d"
			If $rand = 3 Then $result &= "f"
			If $rand = 4 Then $result &= "g"
			If $rand = 5 Then $result &= "h"
			If $rand = 6 Then $result &= "j"
			If $rand = 7 Then $result &= "k"
			If $rand = 8 Then $result &= "l"
			If $rand = 9 Then $result &= "m"
			If $rand = 10 Then $result &= "n"
			If $rand = 11 Then $result &= "p"
			If $rand = 12 Then $result &= "q"
			If $rand = 13 Then $result &= "r"
			If $rand = 14 Then $result &= "s"
			If $rand = 15 Then $result &= "t"
			If $rand = 16 Then $result &= "v"
			If $rand = 17 Then $result &= "w"
			If $rand = 18 Then $result &= "x"
			If $rand = 20 Then $result &= "z"
		Next

	EndIf
	If $upper = 1 Then
		$result = StringUpper($result)
		Return $result

	ElseIf $upper = 0 Then
		Return $result

	EndIf
EndFunc   ;==>RandomLetter