[hamada558]

كود :

Shared Function RandomChars(ByVal m_CapitalChars_AZ As Boolean, ByVal m_SmallChars_az As Boolean, ByVal m_numbers_09 As Boolean, ByVal length As Integer) As String
    Dim charset As String = ""
    If m_CapitalChars_AZ Then charset &= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If m_SmallChars_az Then charset &= "abcdefghijklmnopqrstuvwxyz"
    If m_numbers_09 Then charset &= "0123456789"

    Dim result As String = ""

    If charset <> "" Then
        Static r As New Random ' Static مهم اختياره
        For i = 1 To length
            result &= charset(r.Next(0, charset.Length))
        Next
    End If

    Return result
End Function