Public Class exitform

    Private Sub LBL_leave_Click(sender As Object, e As EventArgs) Handles LBL_leave.Click
        Application.Exit()
    End Sub

    Private Sub pbx_leave_Click(sender As Object, e As EventArgs) Handles pbx_leave.Click
        Application.Exit()
    End Sub

    Private Sub PBX_stay_Click(sender As Object, e As EventArgs) Handles PBX_stay.Click
        'opens next form, closes current form
        Dim nextform As New MainMenu()
        nextform.Show()
        Me.Hide()
    End Sub

    Private Sub LBL_stay_Click(sender As Object, e As EventArgs) Handles LBL_stay.Click
        'opens next form, closes current form
        Dim nextform As New MainMenu()
        nextform.Show()
        Me.Hide()
    End Sub
End Class