Fetch Questions Randomly

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Create a new Random class in VB.NET
        Dim RandomClass As New Random()

        Dim RandomNumber As Integer
        'Generate a random number between 1 and 2,147,483,647
        RandomNumber = RandomClass.Next()
        MessageBox.Show(RandomNumber, "www.interloper.nl", MessageBoxButtons.OK, MessageBoxIcon.Information)


        Dim RandomNumber2 As Integer
        'Generate a random number between 100 and 200
        RandomNumber2 = RandomClass.Next(100, 200)
        MessageBox.Show(RandomNumber2, "www.interloper.nl", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

End Class

Public Function GetRandomNum
Dim myRandom as New Random
dim RandomNumber as Integer = myRandom.Next('first value, 'sencond value) 'both as integers
Return RandomNumber
End Function

Dim r As New Random
For i As Integer = 0 To 30
            Dim r As New Random
            r.Next()
        Next