Homeform

Public Class HomeForm

    Private Sub btnStartGame_Click(sender As Object, e As EventArgs) Handles btnStartGame.Click 'When The Button Start Game is Clicked
        MemoryGame.StartGame() 'From the form "Memory Game" run the subroutine "startgame()" which will load the game
        Me.Hide() 'hide this form (HomeForm)
        MemoryGame.Show() 'Show the "MemoryGame" form
    End Sub

    Private Sub btnLeaderboard_Click(sender As Object, e As EventArgs) Handles btnLeaderboard.Click 'When the Button "Leaderboard" is clicked
        Leaderboard.Show() 'Show the leaderboard form
        Me.Hide() ' hide this form (Home Form)
    End Sub

    Private Sub HomeForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'When the program first runs, (The homeform loads) do the following:
        Dim NewUser
        NewUser = MsgBox("Is this your first time using this program?", vbYesNo + vbQuestion, "MemoryGame") 'Create a message for the user which asks them if they are new or not
        If NewUser = vbYes Then 'if the user responds with "Yes" they are new to the program and willtherefore need to know how to play
            btnStartGame.Enabled = False 'Disable the button which allows the game to start (this will later be enabled when the user goes through the how to play screen)
            MsgBox("Please go through HowToPlay before starting the game") 'Create message box that informs the user to click the how to play button to start the game
        Else
            Exit Sub 'Or else if the user knows how to play, do nothing - exit the subroutine
        End If
    End Sub

    Public Sub ExitProgram() 'Subroutine to Quit the Game when called
        Dim UserPreference 'Creating a variable which stores the user response or "user preference"
        UserPreference = MsgBox("Are you sure you want to exit?", vbYesNo + vbQuestion, "MemoryGame") 'creates an input box where the user needs to confirm if they really want to exit or not - this saves misclicks or accidents
        If UserPreference = vbYes Then 'if they respond with yes then do the following.
            Application.Exit() ' quit the program
        Else
            Exit Sub ' or else if they say no they dont want to quit, do nothing
        End If
    End Sub

    Public Sub HowToPlay() 'Subroutine which will open The How To play screen when called
        btnStartGame.Enabled = True 'Saying that the user has seen how to play and is now ready to play the game
        Help.Show() 'shw the Help form
        Me.Hide() ' hide this form
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click 'When the button EXIT is clicked
        ExitProgram() 'run the subroutine "ExitProgram" which exits the program
    End Sub

    Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click 'When the button HELP is clicked
        HowToPlay() 'run the subroutine HowToPlay which loads the Help Form
    End Sub
End Class