Module Questions Dim question(0 To 9) As String Dim Answer(0 To 9) As String Public Sub Questions() Question(0) = "" Answer(0) = "" Question(1) = "" Answer(1) = "" Question(2) = "" Answer(2) = "" Question(3) = "" Answer(3) = "" Question(4) = "" Answer(4) = "" Question(5) = "" Answer(5) = "" Question(6) = "" Answer(6) = "" Question(7) = "" Answer(7) = "" Question(8) = "" Answer(8) = "" Question(9) = "" Answer(9) = "" End Sub End Module

I have omitted the questions and answers.

Public Class Game Dim Question_Number As Integer Dim rng As New System.Random Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Question_Number = rng.Next(1, 11) Lbl_Queation.Text = Question_Number & " " & Question(0 To 9) End Sub End Class