Visual Basic - Ayuda para un trivia

Hola buenas demas esta decir q recien comienzo en esto y me mandaron un trabajo q es un trivia masomenos lo tengo encaminado, pero al hacer la sentencia while para q al dar aceptar me salte la pregunta no me carga las preguntas en la label masomenos fue esto lo q hice:

'opcion explicita
Dim n As Integer
Dim puntos As Integer

Select Case n

Case 1
Label1.Text = "¿En que siglo se descubrio el planeta Neptuno?"
opcion1.Text = "siglo XIX"
opcion2.Text = "siglo XX"
opcion3.Text = "siglo XVIII"
opcion1.Checked = False
opcion2.Checked = False
opcion3.Checked = False

Case 2
Label1.Text = "¿Cual es la raiz cuadreada de 121?"
opcion1.Text = "11"
opcion2.Text = "12"
opcion3.Text = "13"
opcion1.Checked = False
opcion2.Checked = False
opcion3.Checked = False

No se si esta muy claro pero cualquier cosa me preguntan cada pregunta tiene 3 pociones y en realidad la variable yo pense q la declaraba en el load del formulario pero si no la declaro aqui me subrraya error. Estoy trabajando en V.B 2005
muchas gracias espero respuestas

hola amigo prueva con esto pero recuerda que yo utilizo visualbasic 6

Dim n As Integer
Dim puntos As Integer
n = 1
Select Case n

Case 1
Label1.Caption = "¿En que siglo se descubrio el planeta Neptuno?"
Option1.Caption = "siglo XIX"
Option2.Caption = "siglo XX"
Option3.Caption = "siglo XVIII"

End Select

End Sub

Gracias por la respuesta, pero probe y nada.Asique sigo escuchando!!