programa de preguntas para dos usuarios

[creiko]

una pregunta

tengo que hacer un programa con 6 preguntas cada una de ellas con 4 opciones de respuesta
y con 5 formularios de la siguiente manera

formulario 1
pide usuario y contraseña

formulario 2
mensaje  nxxxxx
con un boton siguiente

formulario 3 con 3 preguntas
pregunta 1 con RadioButton
pregunta 2 con ComboBox
pregunta 3 con listbox
con un boton siguiente

formulario 4
pregunta 4 con RadioButton
pregunta 5 con listboxBox
pregunta 3 con listbox
con 2 botones

boton 1  debe decir aplicar cuestionario a usuario
boton 2  imprimir resultados

formulario 5
imprime las respuestas de los dos usuarios
ejemplo

usuario 1 .

pregunta 1 buena
pregunta 2 mala
pregunta 3 mala
pregunta 4 buena
pregunta 5 buena
pregunta 6 mala

usuario 2 .

pregunta 1 buena
pregunta 2 buena
pregunta 3 buena
pregunta 4 buena
pregunta 5 mala
pregunta 6 buena

la cosa es la siguiente tengo todo.
pero no he podido es como aplicarle al usuario 2 las preguntas,
sin que las respuestas sean las mismas del usuario 1

lo que he hecho es lo siguiente:

formulario 1

Código (vbnet) [Seleccionar] Expandir



Public Class Form1

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

   
    End Sub

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

        Dim login, login1, password, password1 As Char


        login = "bernal"
        password = "1234"
        login1 = "meneses"
        password1 = "123"

        If TextBox1.Text = "bernal" And TextBox2.Text = "1234" Or TextBox1.Text = "meneses" And TextBox2.Text = "123" Then
            Form2.Show()
            Me.Hide()
            TextBox1.Text = ""
            TextBox2.Text = ""
        Else
            MsgBox(" Usuario o contraseña incorrectos")
            TextBox1.Text = ""
            TextBox2.Text = ""
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class




formulario 2

Código (vbnet) [Seleccionar] Expandir


ublic Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       
        Form3.Show()
        Me.Hide()
       
    End Sub
End Class


formulario 3

Código (vbnet) [Seleccionar] Expandir


Public Class Form3

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form4.Show()
        Me.Hide()
    End Sub

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class


formulario 4

Código (vbnet) [Seleccionar] Expandir


Public Class Form4

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form5.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Button1.Visible = True

        ListBox1.Visible = False

        ListBox1.Items().Clear()




        Form1.Show()
        Me.Hide()

    End Sub

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class


formulario 5

Código (vbnet) [Seleccionar] Expandir


Public Class Form5

    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
       
    End Sub

    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim suma As Double
        suma = 0





        If Form3.RadioButton2.Checked = True Then
                Label7.Text = "Correcto"
                suma = suma + 0.8

            Else
                Label7.Text = "Incorrecto"
            End If

            If Form3.ComboBox1.SelectedItem = "Verdadero" Then
                Label8.Text = "correcto"
                suma = suma + 0.8
            Else
                Label8.Text = "Incorrecto"
            End If


            If Form3.ListBox1.SelectedItem = "Antivirus" Then
                Label9.Text = "correcto"
                suma = suma + 0.8
            Else
                Label9.Text = "Incorrecto"
            End If

            If Form4.RadioButton2.Checked = True Then
                Label27.Text = "correcto"
                suma = suma + 0.8
            Else
                Label27.Text = "Incorrecto"
            End If

            If Form4.ComboBox1.SelectedItem = "Verdadero" Then
                Label26.Text = "correcto"
                suma = suma + 0.8
            Else
                Label26.Text = "Incorrecto"
            End If

            If Form4.ListBox1.SelectedItem = "Virus informatico" Then
                Label25.Text = "correcto"
                suma = suma + 0.8
            Else
                Label25.Text = "Incorrecto"
            End If

        Label6.Text = suma



    End Sub
End Class


si alguien me hecha una manito en esa parte lo agraddeceria