(adsbygoogle = window.adsbygoogle || []).push({}); [url]www.dreamspark.com[/url]
Gives away free Microsoft VBasic.
-----------------------------
Im going to post here alot

So, this is a simple one.

You need:
One textbox
One button

First, make the textbox read-only
Then add this code to the button:


Dim Key As Integer
Key = Int(Rnd() * 3)
Select Case Key
Case 0
Text1.text = "First key"
Case 1
Text1.text = "Second key"
Case 2
Text1.text = "Third key"
End Select
End Sub


You can just keep adding
Case 3
Text1.text = "Another key"
As many times as needed, just change the number.