Get Random value with no duplicate

[nilesh16782]

hi... i use this code in which i want different value of i (no duplicate). . but this code return some duplicate value of i...
----------------------------
Dim r As New Random
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dim i as Integer
For i = 1 To 5
MsgBox(r.Next(0, 5))
Next
End Sub
'----------------------