Программа "Тест": как показать следующий вопрос в том же окне

Dim i As Integer 'текущий вопрос
Dim question(99) As String 'массив вопросов
Private Sub Form_Load()
i = 0
question(0) = "Вопрос 1"
'...
End Sub
Private Sub Command1_Click()
'... обработка предыдущего ответа
label1 = question(i)
i = i + 1
If i > 99 Then
'обработка всех результатов
End If
End Sub

Public Sub Command1_Click()
If Check1 = 1 Then
Text1 = "no"
Else
Text1 = "YES"
End If
If Check2 = 1 Then
Text2 = "no"
Else
Text2 = "YES"
End If
If Check3 = 1 Then
Text3 = "no"
Else
Text3 = "YES"
End If
If Check4 = 1 Then
Text4 = "no"
Else
Text4 = "YES"
End If
If Check5 = 1 Then
Text5 = "no"
Else
Text5 = "YES"
End If
If Check6 = 1 Then
Text6 = "no"
Else
Text6 = "YES"
End If
End Sub

Dim i As Integer
Dim question(99) As String 
Dim answer_num(99) As Integer 'колво ответов
Dim answer(99, 4) As String  'мах 5 вариантов ответов
Dim answer_right(99) As Integer 'правильный
Dim right(99) As Integer
 
Private Sub Form_Load()
i = 0
question(0) = "Вопрос  1"
answer_num(0) = 3
answer(0, 0) = "Ответ 1 - 1"
answer(0, 1) = "Ответ  1 - 2"
answer(0, 2) = "Ответ 1 - 3"
answer_right(0) = 1
question(1) = "Вопрос 2"
answer_num(1) = 4
answer(1, 0) = "Ответ  2 - 1"
answer(1, 1) = "Ответ  2 - 2"
answer(1, 2) = "Ответ  2 - 3"
answer(1, 3) = "Ответ  2 - 4"
answer_right(0) = 0
'и тд
 
label1 = question(0)
For j = 0 To 4
    If j < answer_num(0) Then
        Option1(j).Caption = answer(0, j)
        Option1(j).Visible = True
    Else
        Option1(j).Visible = False
    End If
Next
End Sub
 
Private Sub Command1_Click()
right(i) = IIf(Option1(answer_right(i)) = True, 1, 0)
 
label1 = question(i)
For j = 0 To 4
    If j < answer_num(i) Then
        Option1(j).Caption = answer(i, j)
        Option1(j).Visible = True
    Else
        Option1(j).Visible = False
    End If
Next
i = i + 1
 
If i > 99 Then
    Sum = 0
    For j = 0 To 99
        Sum = Sum + right(j)
    Next
    MsgBox "Правильно " & Sum & " ответов"
End If
End Sub

Private Sub Form_Load()
q01 = "Какое наименование конституция РФ устанавливает для нашего Отечества?"
q02 = "Равнозначны ли по своему содержанию курсы *Конституционное право* и *Государственное право*?"
a01a = "Федерация народов России"
a01b = "Русская Федерация"
a01c = "Российская Федерация"
a01d = "Россия"
a02a = "Да"
a02b = "Нет"
'и так далее....
Text5 = q01
Text6 = a01a
Text7 = a01b
Text8 = a01c
Text9 = a01d
End Sub
 
 
Public Sub Command1_Click()
If Check1 = 1 Then
Text1 = "Неправильно"
Else
Text1 = "--"
End If
If Check2 = 1 Then
Text2 = "Неправильно"
Else
Text2 = "--"
End If
If Check3 = 1 Then
Text3 = "Верно"
Else
Text3 = "Неправильно"
End If
If Check4 = 1 Then
Text4 = "Верно"
Else
Text4 = "Неправильно"
End If
End Sub

Private Sub Form_Load()
w2w = "sfdgsdfhg"
a = 2
e = "w" + LTrim(Str(a) + "w")
Text1 = e
End Sub