visual basic rastgele kod ve parola oluşturma kodu

 
  Dim kullanicikodu As String 
  Dim parola As String 
  Dim rastgele As Integer 
  Randomize 
  rastgele = CInt(Int((999 * Rnd()) + 1)) 
  dizi = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "S", "T", "U", "V", "W", "X", "Y", "Z") 
  Randomize 
  For i = 1 To 3 
     Index = Int(Rnd() * 25) 
  metin = metin & dizi(Index) 
  Next 
  kullanicikodu = Left(Text1.Text, 2) + Left(Text2.Text, 2) + Right(Text3.Text, 2) 
   
  parola = Left(Text1.Text, 1) + Left(Text2.Text, 1) + metin + CStr(rastgele)