Originariamente inviato da jabjoint
codice:
Private Function GenerateWord(Numero_caratteri As Long, vMinuscola_Maiuscola As Integer) As String

Dim nChar As Long
Dim Word As String

Dim Minuscola_Maiuscola As Integer

For nChar = 1 To Numero_caratteri

Randomize

If vMinuscola_Maiuscola = 0 Then

If Int(Rnd * 2) + 1 = 1 Then
Minuscola_Maiuscola = 97
    Else
Minuscola_Maiuscola = 65
End If

ElseIf vMinuscola_Maiuscola = 1 Then
Minuscola_Maiuscola = 97
    Else
Minuscola_Maiuscola = 65
End If

Word = Word & Chr(Minuscola_Maiuscola + Int(Rnd * 25) + 1)

Next nChar

GenerateWord = Word

End Function
Vb.NET????????
Io programmo in C#, la adatto