Private sub random() 'Creates the sub
dim textbox as new textbox 'Makes a new textbox to store data
textbox.text = Int(Rnd() * 2) 'Tells the program to put the random thing inside of the textbox
 Select Case textbox.text 'Starts the case block
  Case 0 '1st case define
    textbox.text = "lol" 'Whats inside of case 0
  Case 1 '2nd case define
    textbox.text = "lawl" 'Whats inside of case 1
 End Select 'End the case block
msgbox(textbox.text) 'Puts the random variable in a message box
End sub 'Ends the sub

http://brandonsoft.com

This code can be used to make random items from a list of specified items.

Using CASES to generate random items

VB.NET