یک سورس میخوام که حروف رندوم 4 حرفه بده
یه همچین چیزی رو در نظر داشته باش :
کد:
Function RandomString(cb As Integer) As String
Randomize
Dim rstr As String
rstr = "abcdefghijklmnopqrstuvwxyz"
Dim i As Long
For i = 1 To cb
RandomString = RandomString & Mid$(rstr, Int(Rnd() * Len(rstr) + 1), 1)
Next
End Function
که فکر می کنم بدونی چطور استفاده کنی ! مثلا واسه 4 حرفی باید هنگام فراخوانی تابع 4 استفاده کنی