If you want to do a Select Case on a random number then you need to do it on a number, not the Random object that generated it. The Next method returns that number so you need to use that result. Your code should either be this:
or like this:
vb.net Code:
Dim n = r.Next(1, 5)
Select Case n
For future reference, please use formatting tags when posting code (there are buttons for them on the editor toolbar) and, if possible, copy and paste code from the IDE rather than typing directly into the post. That way we get all the correct casing and indentation, which makes the code much easier to read.