HOW TO GENERATE RANDOM NUMBER IN VB.NET

HOW TO GENERATE RANDOM NUMBER IN VB.NET
=====================================================================================
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim r As Double
r = Rnd()
MsgBox(r)
End Sub
======================================================================================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim X As Integer = Int(Rnd() * 5000)
MessageBox.Show(X) 'You used the Rnd and Randomize functions
End Sub
======================================================================================