Système aléatoire VB.net

Bonjour,

J'aimerais bien savoir comment faire un bout de code pour créer un système de sélection aléatoire; j'ai essayer ce code mais il ne fonctionne pas :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Label1.Text = Int(Rnd() * 4)
        Select Case Label1.Text
            Case 0
                Label1.Text= "1"
            Case 1
                Label1.Text= "2"
            Case 1
                Label1.Text= "3"
            Case 2
                Label1.Text= "4"
	    Case 2
                Label1.Text= "5"
        End Select
    End Sub

Si vous avez quelques choses à proposer, je suis preneur ;)

Merci
Cordialement VANAUR