Slot machine program

' Project name:         Slot Machine Project
' Project purpose:      Simulates a slot machine
' Created/revised by:   <your name> on <current date>

Option Explicit On
Option Strict On
Option Infer Off

Public Class MainForm

    Private Sub exitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub

    Private Sub clickHereButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clickHereButton.Click
        Dim randGen As New Random
        Dim leftIndex As Integer
        Dim centerIndex As Integer
        Dim rightIndex As Integer
        Dim lost As Integer

        clickHereButton.Enabled = False
        For spins As Integer = 1 To 10
            leftIndex = randGen.Next(0, 6)
            leftPictureBox.Image =
                ImageList1.Images.Item(leftIndex)
            Me.Refresh()
            System.Threading.Thread.Sleep(50)

            centerIndex = randGen.Next(0, 6)
            centerPictureBox.Image =
                ImageList1.Images.Item(centerIndex)
            Me.Refresh()
            System.Threading.Thread.Sleep(50)

            rightIndex = randGen.Next(0, 6)
            rightPictureBox.Image =
                ImageList1.Images.Item(rightIndex)
            Me.Refresh()
            System.Threading.Thread.Sleep(50)

        Next spins

        If leftIndex = centerIndex AndAlso
            leftIndex = rightIndex Then
            MessageBox.Show("Congratulations!", "Winner",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)

        End If
        If leftIndex <> centerIndex AndAlso
            leftIndex <> rightIndex Then
            MessageBox.Show("Sorry, you lost! Please play again", "Loser",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
            lblBal.Text = lblBet - lost
        End If
        clickHereButton.Enabled = True




    End Sub

    
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Static amount As Integer

        amount = amount + 5
        lblBet.Text = "$" & amount
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Static amount As Integer

        amount = amount - 5
        lblBet.Text = "$" & amount
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim balance As Integer

        balance = CInt(InputBox("Enter playing balance"))
        lblBal.Text = "$" & balance
    End Sub
End Class