Ok, Please read through the tutorial in the video, and then copy/paste the code below:
Private Sub Command1_Click()
Text1.Text = "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9)
End Sub
Public Function Rand(ByVal Low As Long, _ ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Have fun, Any questions, post them in comments/profile or send them to "divinity_guy@hotmail.co.uk"
Thanks for using this tutorial!
sir what is function rand? where i will paste it?
markdelta2 11 months ago
Haha, what do you use it for then?
Makes a good password :D.
StaroChichanin 2 years ago
yea it doesnt u need to fix the key code in ur info box
BullDogReaperFever 2 years ago
ha ha
codehpro 2 years ago
This does not work
ryano91622 2 years ago