Random Selecting

[strangevirus]

Hi i am looking for a piece of code that randomly choose either "Clubs, Diamondsm, Hearts" or Spades" and display the result in a label any help appriciated thanks

 

[JuggaloBrotha]

Dim rnd As New Random
Select Case rnd.Next(0,4)
  Case 0
    Label1.Text = "Clubs"
  Case 1
    Label1.Text = "Diamondsm"
  Case 2
    Label1.Text = "Hearts"
  Case 3
    Label1.Text = "Spades"
End Select