[VB_Coder]

السلام عليكم

- أدرج تكست بوكس1 وزر1 . ثم ضع هذا كود الزر :

كود :

Private Sub Command1_Click()

Dim SmallChars As String
Dim CapitalChars As String
Dim Numbers As String
Dim Symbols As String
Dim I,N As Integer

SmallChars = "abcdefghijklmnopqrstuvwxyz"
CapitalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Numbers = "1234567890"
Symbols = "/+-*@#%&)_"

Text1.Text = ""

For I = 1 To Len(SmallChars)

For N = 1 To Len(SmallChars)
Text1.Text = Text1.Text & Mid$(SmallChars,I,1) & Mid$(SmallChars,N,1)
Next

For N = 1 To Len(Numbers)
Text1.Text = Text1.Text & Mid$(SmallChars,I,1) & Mid$(Numbers,N,1)
Next

For N = 1 To Len(Symbols)
Text1.Text = Text1.Text & Mid$(SmallChars,I,1) & Mid$(Symbols,N,1)
Next

Next

For I = 1 To Len(CapitalChars)

For N = 1 To Len(SmallChars)
Text1.Text = Text1.Text & Mid$(CapitalChars,I,1) & Mid$(SmallChars,N,1)
Next

For N = 1 To Len(Numbers)
Text1.Text = Text1.Text & Mid$(CapitalChars,I,1) & Mid$(Numbers,N,1)
Next

For N = 1 To Len(Symbols)
Text1.Text = Text1.Text & Mid$(CapitalChars,I,1) & Mid$(Symbols,N,1)
Next

Next

End Sub