You need:

seven timers, first four set to 100, #5 set to 10000, #6 to 500, and #7 to 10000

Two labels, one with:

"Gay?:"  the other:  "X"

A textbox name textbox1

and a button named Start







Public Class Form1



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

        Timer1.Start()

        Timer2.Start()

        Timer3.Start()

        Timer4.Start()

        Timer5.Start()

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        MessageBox.Show("Error!", "Error!", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error)

    End Sub



    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        MessageBox.Show("Error!", "Error!", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error)

    End Sub



    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        MessageBox.Show("Error!", "Error!", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error)

    End Sub



    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

        MessageBox.Show("Error!", "Error!", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error)

    End Sub



    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick

        Timer1.Stop()

        Timer2.Stop()

        Timer3.Stop()

        Timer4.Stop()

    End Sub



    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click

        Dim a As Integer

        While a < 10

            Me.Location = New Point(Me.Location.X + 20, Me.Location.Y)

            System.Threading.Thread.Sleep(50)

            Me.Location = New Point(Me.Location.X - 20, Me.Location.Y)

            System.Threading.Thread.Sleep(50)

            a += 1

        End While

        If TextBox1.Text = ("Yes") Then

            MessageBox.Show("Fail", "Error at life", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            Timer6.Start()

            Timer7.Start()

        End If

    End Sub



    Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick

        MessageBox.Show("Try again", "Try again", MessageBoxButtons.OK, MessageBoxIcon.Warning)

    End Sub



    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick

        Timer6.Stop()

    End Sub



    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

        MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

        MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

        MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

        MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

        MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

        MsgBox("No")

        Me.Close()

    End Sub

End Class