Meerdere antwoorden goed

[Pim15]

In Visual Basic 2010 Express heb ik een programma gemaakt met een raadsel erin. Er is alleen maar één antwoord goed. Ik wil dat er meerdere antwoorden goed zijn. Weet iemand hoe dit moet? Dit heb ik tot nu toe:

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        'Start de code op het moment dat de gebruiker op een toets drukt
        Select Case (e.KeyChar)
            Case vbCr 'vbCr = Enter
                If TextBox1.Text = "Menes" Then
                    MsgBox("Het antwoord op het raadsel is goed. Je kunt verder.", vbYes, "Het juiste antwoord")
                    Label9.Visible = True
                    Label8.Visible = False
                    Button8.Visible = False
                    PictureBox7.Visible = True
                    TextBox1.Visible = False
                Else
                    MsgBox("Het antwoord op het raadsel is niet goed. Probeer het nog eens.", vbExclamation, "Niet het juiste antwoord")
                End If
            Case Else 'Als de ingedrukte toets een andere is dan de toetsen die erboven zijn genoemd (de letters bijvoorbeeld) dan gebeurt er niets
        End Select
    End Sub

Pim

 

[MartinJM]

Hallo,

Dat is redelijk makkelijk:
[CPP]If TextBox1.Text = "Menes" Or TextBox1.Text = "Antwoord2" Then[/CPP]

MartinJM

 

[Pim15]

Het werkt. Bedankt.

Pim