help radom

[angel.girl]

how can i make random with word..
like
but i need somethings in end
@angel
i wana @angel in end text box
so how can i do like tht
here for explln

random 6 word
ahshsd@angel
paushf@angel
siuesoj@angel
ahosps@angel

[masterkert3]

text1.text = text1.text & "@angel"

[anhn]

Dim sEmail(1 to 10) as String
Dim i as Integer, n as Integer, k as Integer

Randomize 
For i = 1 to 10
   For k = 1 to 6
      n = Int(Rnd * 26) + 97 '-- 26 letters from "a" with asc=97 to "z" with asc=122
      sEmail(i) = sEmail(i) & Chr$(n)
   Next
   sEmail(i) = sEmail(i) & "@angel"
   Debug.Print sEmail(i)
   '-- No checking duplicate here. A collection can be used to store emails addresses
Next

[angel.girl]

Dim sEmail(1 to 10) as String
Dim i as Integer, n as Integer, k as Integer

Randomize 
For i = 1 to 10
   For k = 1 to 6
      n = Int(Rnd * 26) + 97 '-- 26 letters from "a" with asc=97 to "z" with asc=122
      sEmail(i) = sEmail(i) & Chr$(n)
   Next
   sEmail(i) = sEmail(i) & "@angel"
   Debug.Print sEmail(i)
   '-- No checking duplicate here. A collection can be used to store emails addresses
Next

its working thanks
can u tell me how can i send it in text1.text
i mean its showin in text1.text box?

[Hack]

can u tell me how can i send it in text1.text
i mean its showin in text1.text box?

I don't understand what you are asking here.

If it is showing in Text1, then it is already there so there wouldn't be any need to send it.

[angel.girl]

look he post random code its working
when i click on button
but i wana its show in text box
when i click on the button its send show in text1.text
i got no idea how can i..

[anhn]

If you want to get help, please post here. Do not send PM.

Private Sub Form_Load()
   Randomize 
End Sub

Private Sub Command1_Click()
   Dim sEmail as String
   Dim n as Integer, k as Integer

   For k = 1 to 6
      n = Int(Rnd * 26) + 97 '-- 26 letters from "a" with asc=97 to "z" with asc=122
      sEmail = sEmail & Chr$(n)
   Next
   sEmail = sEmail & "@noangel"
   Text1.Text = sEmail
End Sub

[angel.girl]

its send to text1.text but when i click on the button show like tht

if u click on time its showin more random caz i wana jus one

qkzctw@angel, nbnsmq@angel, oqbgev@angel, pmatvb@angel, qydrpg@angel, dgldmp@angel, kizdxt@angel, ytsqsi@angel, wzlzkb@angel, jbxkwb@angel

see here i click 1 time and its showin 10
how can do it like click on time button
and
one
hahiss@angel
click agian
hahies@angel
here is randsom projct but wid out angel:8

http://www.2shared.com/file/3233162/...12/random.html

[angel.girl]

thanks i got its working