'Media Player in virtual form
' Developer: Juyoung Lee
' Program Name: JuyoungLee_StockWar
' Version: 1.0

Option Explicit On
Option Strict On

'Imports WMPLib 'For bgm. Project>Add Refernece > Windows Media Player   1.0   C:\WINDOWS\system32\wmp.dll


Public Class frmMain

    'Dim Player As WindowsMediaPlayer = New WindowsMediaPlayer ' Background Music Value

    Dim UserName As String = frmLogin.strName.ToString
    Public lang As String = frmLogin.lang.ToString 'Bring value 'lang' from LoginForm
    Dim TimerCount As Integer = 0
    'Dim MaxMinSetZero As Integer = 0 'This is for initialization (or resetting) Max and Min. For initialization every 7 days, I need to set the two kinds values 'Max' and 'Min' to 0.

    Public CheaterCount As Integer = 0 'shows 'Cheater' in level label if it reachs the set number.

    Dim rand As New Random



    Public SalaryCount As Integer = 0 'Salary Counter.
    Public intSalary As Integer = 500  'Player receives set money every months.

    Public intTax As Decimal = 0.035



    'MandA Messages for translations
    Dim MandAMessage, MandAMessageTitle As String

    Public MyWallet As Decimal = 10000 'Set start money

    Dim BuyPrice1, SellPrice1, BuyPrice1U, SellPrice1U,
        BuyPrice2, SellPrice2, BuyPrice2U, SellPrice2U,
        BuyPrice3, SellPrice3, BuyPrice3U, SellPrice3U,
        BuyPrice4, SellPrice4, BuyPrice4U, SellPrice4U,
        BuyPrice5, SellPrice5, BuyPrice5U, SellPrice5U,
        BuyPrice6, SellPrice6, BuyPrice6U, SellPrice6U,
        BuyPrice7, SellPrice7, BuyPrice7U, SellPrice7U,
        BuyPrice8, SellPrice8, BuyPrice8U, SellPrice8U,
        BuyPrice9, SellPrice9, BuyPrice9U, SellPrice9U,
        BuyPrice10, SellPrice10, BuyPrice10U, SellPrice10U,
        BuyPrice11, SellPrice11, BuyPrice11U, SellPrice11U,
        BuyPrice12, SellPrice12, BuyPrice12U, SellPrice12U,
        BuyPrice13, SellPrice13, BuyPrice13U, SellPrice13U,
        BuyPrice14, SellPrice14, BuyPrice14U, SellPrice14U,
        BuyPrice15, SellPrice15, BuyPrice15U, SellPrice15U,
        BuyPrice16, SellPrice16, BuyPrice16U, SellPrice16U,
        BuyPrice17, SellPrice17, BuyPrice17U, SellPrice17U,
        BuyPrice18, SellPrice18, BuyPrice18U, SellPrice18U,
        BuyPrice19, SellPrice19, BuyPrice19U, SellPrice19U,
        BuyPrice20, SellPrice20, BuyPrice20U, SellPrice20U As Decimal
    Dim Max1, Min1, Max2, Min2, Max3, Min3, Max4, Min4, Max5, Min5, Max6, Min6, Max7, Min7, Max8, Min8, Max9, Min9, Max10, Min10, Max11, Min11, Max12, Min12, Max13, Min13, Max14, Min14, Max15, Min15, Max16, Min16, Max17, Min17, Max18, Min18, Max19, Min19, Max20, Min20 As Decimal
    'Set quotas for individual companies
    Dim Quota1, Quota2, Quota3, Quota4, Quota5,
        Quota6, Quota7, Quota8, Quota9, Quota10,
        Quota11, Quota12, Quota13, Quota14, Quota15,
        Quota16, Quota17, Quota18, Quota19, Quota20 As Decimal
    'Currently having shares
    Dim Holding1 As Integer = 0
    Dim Holding2 As Integer = 0
    Dim Holding3 As Integer = 0
    Dim Holding4 As Integer = 0
    Dim Holding5 As Integer = 0
    Dim Holding6 As Integer = 0
    Dim Holding7 As Integer = 0
    Dim Holding8 As Integer = 0
    Dim Holding9 As Integer = 0
    Dim Holding10 As Integer = 0
    Dim Holding11 As Integer = 0
    Dim Holding12 As Integer = 0
    Dim Holding13 As Integer = 0
    Dim Holding14 As Integer = 0
    Dim Holding15 As Integer = 0
    Dim Holding16 As Integer = 0
    Dim Holding17 As Integer = 0
    Dim Holding18 As Integer = 0
    Dim Holding19 As Integer = 0
    Dim Holding20 As Integer = 0


    'Changeswitch=true is first number of price and '=false' is second number of the price.
    'I put the result from '=true' into Buyprice1 and result from '=false' into Buyprice1U.
    'So I compare two prices to determine how much the price has beeen changed.
    Dim ChangeSwitch As Boolean = True

    'Start and Pause Counter. If this value is False, Stop when PicStartPause is clicked. If True, Start.
    Dim PicTimeCounter As Boolean = False


    'Cheat Event values
    Public SamsungAppleSue As Integer = 0
    Public TsunamiJapan As Integer = 0
    Public FastfoodBoom As Integer = 0
    Public InfoAgeEffect As Integer = 0
    Public MeetAlien As Integer = 0


    'Event Sub
    Sub SamsungAppleSueEvent_U()
        If SamsungAppleSue > 0 Then
            BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue)) '0.15% decrease ' "* SamsungAppleSue" can calculate numbers of used times of cheat and have effects.
            BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue))
        End If
    End Sub

    Sub SamsungAppleSueEvent()
        If SamsungAppleSue > 0 Then
            BuyPrice1 = CDec(ChangePrice_Huge(CDec(BuyPrice1)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue))
            BuyPrice13 = CDec(ChangePrice_Huge(CDec(BuyPrice13)).ToString("n2")) * CDec(1 - (0.015 * SamsungAppleSue))
        End If
    End Sub

    Sub TsunamiJapanEvent_U()
        If TsunamiJapan > 0 Then
            BuyPrice5U = CDec(ChangePrice_Large(CDec(BuyPrice5U)).ToString("n2")) * CDec(1 - (0.02 * TsunamiJapan)) 'decrease 2n%
        End If
    End Sub

    Sub TsunamiJapanEvent()
        If TsunamiJapan > 0 Then
            BuyPrice5 = CDec(ChangePrice_Large(CDec(BuyPrice5)).ToString("n2")) * CDec(1 - (0.02 * TsunamiJapan))
        End If
    End Sub

    Sub FastfoodBoomEvent_U()
        If FastfoodBoom > 0 Then
            BuyPrice3U = CDec(ChangePrice_Small(CDec(BuyPrice3U)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom))
            BuyPrice20U = CDec(ChangePrice_Medium(CDec(BuyPrice20U)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom))
        End If
    End Sub

    Sub FastfoodBoomEvent()
        If FastfoodBoom > 0 Then
            BuyPrice3 = CDec(ChangePrice_Small(CDec(BuyPrice3)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom))
            BuyPrice20 = CDec(ChangePrice_Medium(CDec(BuyPrice20)).ToString("n2")) * CDec(1 + (0.015 * FastfoodBoom))
        End If
    End Sub

    Sub InfoAgeEffectEvent_U()
        If InfoAgeEffect > 0 Then
            BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice2U = CDec(ChangePrice_Medium(CDec(BuyPrice2U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice6U = CDec(ChangePrice_Tiny(CDec(BuyPrice6U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice8U = CDec(ChangePrice_Huge(CDec(BuyPrice8U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice12U = CDec(ChangePrice_Large(CDec(BuyPrice12U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice14U = CDec(ChangePrice_Large(CDec(BuyPrice14U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice15U = CDec(ChangePrice_Tiny(CDec(BuyPrice15U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice16U = CDec(ChangePrice_Large(CDec(BuyPrice16U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice17U = CDec(ChangePrice_Medium(CDec(BuyPrice17U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice19U = CDec(ChangePrice_Small(CDec(BuyPrice19U)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
        End If
    End Sub

    Sub InfoAgeEffectEvent()
        If InfoAgeEffect > 0 Then
            BuyPrice1 = CDec(ChangePrice_Huge(CDec(BuyPrice1)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice2 = CDec(ChangePrice_Medium(CDec(BuyPrice2)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice6 = CDec(ChangePrice_Tiny(CDec(BuyPrice6)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice8 = CDec(ChangePrice_Huge(CDec(BuyPrice8)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice12 = CDec(ChangePrice_Large(CDec(BuyPrice12)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice13 = CDec(ChangePrice_Huge(CDec(BuyPrice13)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice14 = CDec(ChangePrice_Large(CDec(BuyPrice14)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice15 = CDec(ChangePrice_Tiny(CDec(BuyPrice15)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice16 = CDec(ChangePrice_Large(CDec(BuyPrice16)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice17 = CDec(ChangePrice_Medium(CDec(BuyPrice17)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
            BuyPrice19 = CDec(ChangePrice_Small(CDec(BuyPrice19)).ToString("n2")) * CDec(1 + (0.015 * InfoAgeEffect))
        End If
    End Sub

    Sub MeetAlienEvent_U()
        If MeetAlien > 0 Then
            BuyPrice11U = CDec(ChangePrice_Tiny(CDec(BuyPrice11U)).ToString("n2")) * CDec(1 + (0.015 * MeetAlien))
        End If
    End Sub

    Sub MeetAlienEvent()
        If MeetAlien > 0 Then
            BuyPrice11 = CDec(ChangePrice_Tiny(CDec(BuyPrice11)).ToString("n2")) * CDec(1 + (0.015 * MeetAlien))
        End If
    End Sub


    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Set names of companies
        lblCompany1.Text = "Apple"
        lblCompany2.Text = "IBM"
        lblCompany3.Text = "Coca-Cola"
        lblCompany4.Text = "Novatis"
        lblCompany5.Text = "Toyota Motor"
        lblCompany6.Text = "Facebook"
        lblCompany7.Text = "JP Morgan"
        lblCompany8.Text = "Microsoft"
        lblCompany9.Text = "Wells Fargo"
        lblCompany10.Text = "Nestle"
        lblCompany11.Text = "SpaceX"
        lblCompany12.Text = "Google"
        lblCompany13.Text = "Samsung"
        lblCompany14.Text = "AT＆T"
        lblCompany15.Text = "Oracle"
        lblCompany16.Text = "Amazon.com"
        lblCompany17.Text = "Comcast"
        lblCompany18.Text = "Wal-Mart Stores"
        lblCompany19.Text = "Verizon"
        lblCompany20.Text = "McDonald's"


        'Translate start labels texts. lang ="ENG" Not Needed because it's already set in design as "Wednesday".
        If lang = "ENG" Then
            'menuSettingsLanguageEnglish.Checked = True

        ElseIf lang = "KOR" Then
            'menuSettingsLanguageKorean.Checked = True
            lblMonths.Text = "수요일"
            menuFile.Text = "파일"
            menuFileLoad.Text = "불러오기"
            menuFileSave.Text = "저장하기"
            menuFileExit.Text = "나가기"
            menuSettings.Text = "설정"
            menuSettingsCheat.Text = "치트"
            'menuSettingsLanguage.Text = "언어"
            menuTools.Text = "도구"
            menuToolsCalculator.Text = "계산기"
            menuHelp.Text = "도움말"
            menuHelpRules.Text = "게임 규칙"
            'Translate texts on buttons
            btnBuy1.Text = "매입"
            btnBuy2.Text = "매입"
            btnBuy3.Text = "매입"
            btnBuy4.Text = "매입"
            btnBuy5.Text = "매입"
            btnBuy6.Text = "매입"
            btnBuy7.Text = "매입"
            btnBuy8.Text = "매입"
            btnBuy9.Text = "매입"
            btnBuy10.Text = "매입"
            btnBuy11.Text = "매입"
            btnBuy12.Text = "매입"
            btnBuy13.Text = "매입"
            btnBuy14.Text = "매입"
            btnBuy15.Text = "매입"
            btnBuy16.Text = "매입"
            btnBuy17.Text = "매입"
            btnBuy18.Text = "매입"
            btnBuy19.Text = "매입"
            btnBuy20.Text = "매입"
            btnSell1.Text = "매도"
            btnSell2.Text = "매도"
            btnSell3.Text = "매도"
            btnSell4.Text = "매도"
            btnSell5.Text = "매도"
            btnSell6.Text = "매도"
            btnSell7.Text = "매도"
            btnSell8.Text = "매도"
            btnSell9.Text = "매도"
            btnSell10.Text = "매도"
            btnSell11.Text = "매도"
            btnSell12.Text = "매도"
            btnSell13.Text = "매도"
            btnSell14.Text = "매도"
            btnSell15.Text = "매도"
            btnSell16.Text = "매도"
            btnSell17.Text = "매도"
            btnSell18.Text = "매도"
            btnSell19.Text = "매도"
            btnSell20.Text = "매도"
        End If

        ' Textbox style of mywalllet
        lblMoney.Text = CDec(MyWallet.ToString("n2")).ToString("C")
        If lang = "KOR" Then
            lblMoney.Text = CStr(CDec(MyWallet.ToString("n2")).ToString("￦##,##.00K"))
        End If
        ' Textboxes style of quotas for compnies
        txtQuota1.Text = CStr(Quota1.ToString("p"))
        txtQuota2.Text = CStr(Quota2.ToString("p"))
        txtQuota3.Text = CStr(Quota3.ToString("p"))
        txtQuota4.Text = CStr(Quota4.ToString("p"))
        txtQuota5.Text = CStr(Quota5.ToString("p"))
        txtQuota6.Text = CStr(Quota6.ToString("p"))
        txtQuota7.Text = CStr(Quota7.ToString("p"))
        txtQuota8.Text = CStr(Quota8.ToString("p"))
        txtQuota9.Text = CStr(Quota9.ToString("p"))
        txtQuota10.Text = CStr(Quota10.ToString("p"))
        txtQuota11.Text = CStr(Quota11.ToString("p"))
        txtQuota12.Text = CStr(Quota12.ToString("p"))
        txtQuota13.Text = CStr(Quota13.ToString("p"))
        txtQuota14.Text = CStr(Quota14.ToString("p"))
        txtQuota15.Text = CStr(Quota15.ToString("p"))
        txtQuota16.Text = CStr(Quota16.ToString("p"))
        txtQuota17.Text = CStr(Quota17.ToString("p"))
        txtQuota18.Text = CStr(Quota18.ToString("p"))
        txtQuota19.Text = CStr(Quota19.ToString("p"))
        txtQuota20.Text = CStr(Quota20.ToString("p"))

        '' Textboxes style of holding
        'txtHolding1.Text = Holding1.ToString("#,#")
        'txtHolding2.Text = Holding2.ToString("#,#")

        'Set Beginning stock prices and display them
        'NOTE HERE! The value of start price for buying is BuyPrice1U, Not BuyPrice1.
        BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2"))
        BuyPrice2U = CDec(ChangePrice_Medium(CDec(BuyPrice2U)).ToString("n2"))
        BuyPrice3U = CDec(ChangePrice_Small(CDec(BuyPrice3U)).ToString("n2"))
        BuyPrice4U = CDec(ChangePrice_Small(CDec(BuyPrice4U)).ToString("n2"))
        BuyPrice5U = CDec(ChangePrice_Large(CDec(BuyPrice5U)).ToString("n2"))
        BuyPrice6U = CDec(ChangePrice_Tiny(CDec(BuyPrice6U)).ToString("n2"))
        BuyPrice7U = CDec(ChangePrice_Medium(CDec(BuyPrice7U)).ToString("n2"))
        BuyPrice8U = CDec(ChangePrice_Huge(CDec(BuyPrice8U)).ToString("n2"))
        BuyPrice9U = CDec(ChangePrice_Medium(CDec(BuyPrice9U)).ToString("n2"))
        BuyPrice10U = CDec(ChangePrice_Huge(CDec(BuyPrice10U)).ToString("n2"))
        BuyPrice11U = CDec(ChangePrice_Tiny(CDec(BuyPrice11U)).ToString("n2"))
        BuyPrice12U = CDec(ChangePrice_Large(CDec(BuyPrice12U)).ToString("n2"))
        BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2"))
        BuyPrice14U = CDec(ChangePrice_Large(CDec(BuyPrice14U)).ToString("n2"))
        BuyPrice15U = CDec(ChangePrice_Tiny(CDec(BuyPrice15U)).ToString("n2"))
        BuyPrice16U = CDec(ChangePrice_Large(CDec(BuyPrice16U)).ToString("n2"))
        BuyPrice17U = CDec(ChangePrice_Medium(CDec(BuyPrice17U)).ToString("n2"))
        BuyPrice18U = CDec(ChangePrice_Large(CDec(BuyPrice18U)).ToString("n2"))
        BuyPrice19U = CDec(ChangePrice_Small(CDec(BuyPrice19U)).ToString("n2"))
        BuyPrice20U = CDec(ChangePrice_Medium(CDec(BuyPrice20U)).ToString("n2"))

        SamsungAppleSueEvent_U()
        TsunamiJapanEvent_U()
        FastfoodBoomEvent_U()
        InfoAgeEffectEvent_U()
        MeetAlienEvent_U()

        'The Buyprice values are for preventing that mywallet goes negative number. If you don't understand, Try make these values as comments and then open the game, so you can buy too much shares to buy with your money.
        BuyPrice1 = BuyPrice1U
        BuyPrice2 = BuyPrice2U
        BuyPrice3 = BuyPrice3U
        BuyPrice4 = BuyPrice4U
        BuyPrice5 = BuyPrice5U
        BuyPrice6 = BuyPrice6U
        BuyPrice7 = BuyPrice7U
        BuyPrice8 = BuyPrice8U
        BuyPrice9 = BuyPrice9U
        BuyPrice10 = BuyPrice10U
        BuyPrice11 = BuyPrice11U
        BuyPrice12 = BuyPrice12U
        BuyPrice13 = BuyPrice13U
        BuyPrice14 = BuyPrice14U
        BuyPrice15 = BuyPrice15U
        BuyPrice16 = BuyPrice16U
        BuyPrice17 = BuyPrice17U
        BuyPrice18 = BuyPrice18U
        BuyPrice19 = BuyPrice19U
        BuyPrice20 = BuyPrice20U


        'Set start Max and Min stock prices of the week and Display them
        Max1 = BuyPrice1U
        Min1 = BuyPrice1U
        Max2 = BuyPrice2U
        Min2 = BuyPrice2U
        Max3 = BuyPrice3U
        Min3 = BuyPrice3U
        Max4 = BuyPrice4U
        Min4 = BuyPrice4U
        Max5 = BuyPrice5U
        Min5 = BuyPrice5U
        Max6 = BuyPrice6U
        Min6 = BuyPrice6U
        Max7 = BuyPrice7U
        Min7 = BuyPrice7U
        Max8 = BuyPrice8U
        Min8 = BuyPrice8U
        Max9 = BuyPrice9U
        Min9 = BuyPrice9U
        Max10 = BuyPrice10U
        Min10 = BuyPrice10U
        Max11 = BuyPrice11U
        Min11 = BuyPrice11U
        Max12 = BuyPrice12U
        Min12 = BuyPrice12U
        Max13 = BuyPrice13U
        Min13 = BuyPrice13U
        Max14 = BuyPrice14U
        Min14 = BuyPrice14U
        Max15 = BuyPrice15U
        Min15 = BuyPrice15U
        Max16 = BuyPrice16U
        Min16 = BuyPrice16U
        Max17 = BuyPrice17U
        Min17 = BuyPrice17U
        Max18 = BuyPrice18U
        Min18 = BuyPrice18U
        Max19 = BuyPrice19U
        Min19 = BuyPrice19U
        Max20 = BuyPrice20U
        Min20 = BuyPrice20U

        txtWeekMax1.Text = CStr(Max1.ToString("C"))
        txtWeekMin1.Text = CStr(Min1.ToString("C"))
        txtWeekMax2.Text = CStr(Max2.ToString("C"))
        txtWeekMin2.Text = CStr(Min2.ToString("C"))
        txtWeekMax3.Text = CStr(Max3.ToString("C"))
        txtWeekMin3.Text = CStr(Min3.ToString("C"))
        txtWeekMax4.Text = CStr(Max4.ToString("C"))
        txtWeekMin4.Text = CStr(Min4.ToString("C"))
        txtWeekMax5.Text = CStr(Max5.ToString("C"))
        txtWeekMin5.Text = CStr(Min5.ToString("C"))
        txtWeekMax6.Text = CStr(Max6.ToString("C"))
        txtWeekMin6.Text = CStr(Min6.ToString("C"))
        txtWeekMax7.Text = CStr(Max7.ToString("C"))
        txtWeekMin7.Text = CStr(Min7.ToString("C"))
        txtWeekMax8.Text = CStr(Max8.ToString("C"))
        txtWeekMin8.Text = CStr(Min8.ToString("C"))
        txtWeekMax9.Text = CStr(Max9.ToString("C"))
        txtWeekMin9.Text = CStr(Min9.ToString("C"))
        txtWeekMax10.Text = CStr(Max10.ToString("C"))
        txtWeekMin10.Text = CStr(Min10.ToString("C"))
        txtWeekMax11.Text = CStr(Max11.ToString("C"))
        txtWeekMin11.Text = CStr(Min11.ToString("C"))
        txtWeekMax12.Text = CStr(Max12.ToString("C"))
        txtWeekMin12.Text = CStr(Min12.ToString("C"))
        txtWeekMax13.Text = CStr(Max13.ToString("C"))
        txtWeekMin13.Text = CStr(Min13.ToString("C"))
        txtWeekMax14.Text = CStr(Max14.ToString("C"))
        txtWeekMin14.Text = CStr(Min14.ToString("C"))
        txtWeekMax15.Text = CStr(Max15.ToString("C"))
        txtWeekMin15.Text = CStr(Min15.ToString("C"))
        txtWeekMax16.Text = CStr(Max16.ToString("C"))
        txtWeekMin16.Text = CStr(Min16.ToString("C"))
        txtWeekMax17.Text = CStr(Max17.ToString("C"))
        txtWeekMin17.Text = CStr(Min17.ToString("C"))
        txtWeekMax18.Text = CStr(Max18.ToString("C"))
        txtWeekMin18.Text = CStr(Min18.ToString("C"))
        txtWeekMax19.Text = CStr(Max19.ToString("C"))
        txtWeekMin19.Text = CStr(Min19.ToString("C"))
        txtWeekMax20.Text = CStr(Max20.ToString("C"))
        txtWeekMin20.Text = CStr(Min20.ToString("C"))

        If lang = "KOR" Then
            txtWeekMax1.Text = CStr(CDec(Max1.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin1.Text = CStr(CDec(Min1.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax2.Text = CStr(CDec(Max2.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin2.Text = CStr(CDec(Min2.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax3.Text = CStr(CDec(Max3.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin3.Text = CStr(CDec(Min3.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax4.Text = CStr(CDec(Max4.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin4.Text = CStr(CDec(Min4.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax5.Text = CStr(CDec(Max5.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin5.Text = CStr(CDec(Min5.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax6.Text = CStr(CDec(Max6.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin6.Text = CStr(CDec(Min6.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax7.Text = CStr(CDec(Max7.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin7.Text = CStr(CDec(Min7.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax8.Text = CStr(CDec(Max8.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin8.Text = CStr(CDec(Min8.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax9.Text = CStr(CDec(Max9.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin9.Text = CStr(CDec(Min9.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax10.Text = CStr(CDec(Max10.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin10.Text = CStr(CDec(Min10.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax11.Text = CStr(CDec(Max11.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin11.Text = CStr(CDec(Min11.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax12.Text = CStr(CDec(Max12.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin12.Text = CStr(CDec(Min12.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax13.Text = CStr(CDec(Max13.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin13.Text = CStr(CDec(Min13.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax14.Text = CStr(CDec(Max14.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin14.Text = CStr(CDec(Min14.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax15.Text = CStr(CDec(Max15.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin15.Text = CStr(CDec(Min15.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax16.Text = CStr(CDec(Max16.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin16.Text = CStr(CDec(Min16.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax17.Text = CStr(CDec(Max17.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin17.Text = CStr(CDec(Min17.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax18.Text = CStr(CDec(Max18.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin18.Text = CStr(CDec(Min18.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax19.Text = CStr(CDec(Max19.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin19.Text = CStr(CDec(Min19.ToString("n2")).ToString("￦##.##K"))
            txtWeekMax20.Text = CStr(CDec(Max20.ToString("n2")).ToString("￦##.##K"))
            txtWeekMin20.Text = CStr(CDec(Min20.ToString("n2")).ToString("￦##.##K"))
        End If

        SellPrice1U = CDec((BuyPrice1U - (BuyPrice1U * intTax)).ToString("n2")) '0.045 is tax in selling action.
        SellPrice2U = CDec((BuyPrice2U - (BuyPrice2U * intTax)).ToString("n2"))
        SellPrice3U = CDec((BuyPrice3U - (BuyPrice3U * intTax)).ToString("n2"))
        SellPrice4U = CDec((BuyPrice4U - (BuyPrice4U * intTax)).ToString("n2"))
        SellPrice5U = CDec((BuyPrice5U - (BuyPrice5U * intTax)).ToString("n2"))
        SellPrice6U = CDec((BuyPrice6U - (BuyPrice6U * intTax)).ToString("n2"))
        SellPrice7U = CDec((BuyPrice7U - (BuyPrice7U * intTax)).ToString("n2"))
        SellPrice8U = CDec((BuyPrice8U - (BuyPrice8U * intTax)).ToString("n2"))
        SellPrice9U = CDec((BuyPrice9U - (BuyPrice9U * intTax)).ToString("n2"))
        SellPrice10U = CDec((BuyPrice10U - (BuyPrice10U * intTax)).ToString("n2"))
        SellPrice11U = CDec((BuyPrice11U - (BuyPrice11U * intTax)).ToString("n2"))
        SellPrice12U = CDec((BuyPrice12U - (BuyPrice12U * intTax)).ToString("n2"))
        SellPrice13U = CDec((BuyPrice13U - (BuyPrice13U * intTax)).ToString("n2"))
        SellPrice14U = CDec((BuyPrice14U - (BuyPrice14U * intTax)).ToString("n2"))
        SellPrice15U = CDec((BuyPrice15U - (BuyPrice15U * intTax)).ToString("n2"))
        SellPrice16U = CDec((BuyPrice16U - (BuyPrice16U * intTax)).ToString("n2"))
        SellPrice17U = CDec((BuyPrice17U - (BuyPrice17U * intTax)).ToString("n2"))
        SellPrice18U = CDec((BuyPrice18U - (BuyPrice18U * intTax)).ToString("n2"))
        SellPrice19U = CDec((BuyPrice19U - (BuyPrice19U * intTax)).ToString("n2"))
        SellPrice20U = CDec((BuyPrice20U - (BuyPrice20U * intTax)).ToString("n2"))

        txtBuyPrice1.Text = BuyPrice1U.ToString("C")
        txtSellPrice1.Text = SellPrice1U.ToString("C")
        txtBuyPrice2.Text = BuyPrice2U.ToString("C")
        txtSellPrice2.Text = SellPrice2U.ToString("C")
        txtBuyPrice3.Text = BuyPrice3U.ToString("C")
        txtSellPrice3.Text = SellPrice3U.ToString("C")
        txtBuyPrice4.Text = BuyPrice4U.ToString("C")
        txtSellPrice4.Text = SellPrice4U.ToString("C")
        txtBuyPrice5.Text = BuyPrice5U.ToString("C")
        txtSellPrice5.Text = SellPrice5U.ToString("C")
        txtBuyPrice6.Text = BuyPrice6U.ToString("C")
        txtSellPrice6.Text = SellPrice6U.ToString("C")
        txtBuyPrice7.Text = BuyPrice7U.ToString("C")
        txtSellPrice7.Text = SellPrice7U.ToString("C")
        txtBuyPrice8.Text = BuyPrice8U.ToString("C")
        txtSellPrice8.Text = SellPrice8U.ToString("C")
        txtBuyPrice9.Text = BuyPrice9U.ToString("C")
        txtSellPrice9.Text = SellPrice9U.ToString("C")
        txtBuyPrice10.Text = BuyPrice10U.ToString("C")
        txtSellPrice10.Text = SellPrice10U.ToString("C")
        txtBuyPrice11.Text = BuyPrice11U.ToString("C")
        txtSellPrice11.Text = SellPrice11U.ToString("C")
        txtBuyPrice12.Text = BuyPrice12U.ToString("C")
        txtSellPrice12.Text = SellPrice12U.ToString("C")
        txtBuyPrice13.Text = BuyPrice13U.ToString("C")
        txtSellPrice13.Text = SellPrice13U.ToString("C")
        txtBuyPrice14.Text = BuyPrice14U.ToString("C")
        txtSellPrice14.Text = SellPrice14U.ToString("C")
        txtBuyPrice15.Text = BuyPrice15U.ToString("C")
        txtSellPrice15.Text = SellPrice15U.ToString("C")
        txtBuyPrice16.Text = BuyPrice16U.ToString("C")
        txtSellPrice16.Text = SellPrice16U.ToString("C")
        txtBuyPrice17.Text = BuyPrice17U.ToString("C")
        txtSellPrice17.Text = SellPrice17U.ToString("C")
        txtBuyPrice18.Text = BuyPrice18U.ToString("C")
        txtSellPrice18.Text = SellPrice18U.ToString("C")
        txtBuyPrice19.Text = BuyPrice19U.ToString("C")
        txtSellPrice19.Text = SellPrice19U.ToString("C")
        txtBuyPrice20.Text = BuyPrice20U.ToString("C")
        txtSellPrice20.Text = SellPrice20U.ToString("C")

        If lang = "KOR" Then
            txtBuyPrice1.Text = CDec(BuyPrice1U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice1.Text = CDec(SellPrice1U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice2.Text = CDec(BuyPrice2U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice2.Text = CDec(SellPrice2U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice3.Text = CDec(BuyPrice3U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice3.Text = CDec(SellPrice3U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice4.Text = CDec(BuyPrice4U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice4.Text = CDec(SellPrice4U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice5.Text = CDec(BuyPrice5U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice5.Text = CDec(SellPrice5U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice6.Text = CDec(BuyPrice6U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice6.Text = CDec(SellPrice6U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice7.Text = CDec(BuyPrice7U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice7.Text = CDec(SellPrice7U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice8.Text = CDec(BuyPrice8U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice8.Text = CDec(SellPrice8U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice9.Text = CDec(BuyPrice9U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice9.Text = CDec(SellPrice9U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice10.Text = CDec(BuyPrice10U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice10.Text = CDec(SellPrice10U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice11.Text = CDec(BuyPrice11U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice11.Text = CDec(SellPrice11U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice12.Text = CDec(BuyPrice12U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice12.Text = CDec(SellPrice12U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice13.Text = CDec(BuyPrice13U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice13.Text = CDec(SellPrice13U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice14.Text = CDec(BuyPrice14U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice14.Text = CDec(SellPrice14U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice15.Text = CDec(BuyPrice15U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice15.Text = CDec(SellPrice15U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice16.Text = CDec(BuyPrice16U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice16.Text = CDec(SellPrice16U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice17.Text = CDec(BuyPrice17U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice17.Text = CDec(SellPrice17U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice18.Text = CDec(BuyPrice18U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice18.Text = CDec(SellPrice18U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice19.Text = CDec(BuyPrice19U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice19.Text = CDec(SellPrice19U.ToString("n2")).ToString("￦##.##K")
            txtBuyPrice20.Text = CDec(BuyPrice20U.ToString("n2")).ToString("￦##.##K")
            txtSellPrice20.Text = CDec(SellPrice20U.ToString("n2")).ToString("￦##.##K")
        End If


    End Sub

    Sub BuySellEnabledFalse()
        btnBuy1.Enabled = False
        btnBuy2.Enabled = False
        btnBuy3.Enabled = False
        btnBuy4.Enabled = False
        btnBuy5.Enabled = False
        btnBuy6.Enabled = False
        btnBuy7.Enabled = False
        btnBuy8.Enabled = False
        btnBuy9.Enabled = False
        btnBuy10.Enabled = False
        btnBuy11.Enabled = False
        btnBuy12.Enabled = False
        btnBuy13.Enabled = False
        btnBuy14.Enabled = False
        btnBuy15.Enabled = False
        btnBuy16.Enabled = False
        btnBuy17.Enabled = False
        btnBuy18.Enabled = False
        btnBuy19.Enabled = False
        btnBuy20.Enabled = False

        btnSell1.Enabled = False
        btnSell2.Enabled = False
        btnSell3.Enabled = False
        btnSell4.Enabled = False
        btnSell5.Enabled = False
        btnSell6.Enabled = False
        btnSell7.Enabled = False
        btnSell8.Enabled = False
        btnSell9.Enabled = False
        btnSell10.Enabled = False
        btnSell11.Enabled = False
        btnSell12.Enabled = False
        btnSell13.Enabled = False
        btnSell14.Enabled = False
        btnSell15.Enabled = False
        btnSell16.Enabled = False
        btnSell17.Enabled = False
        btnSell18.Enabled = False
        btnSell19.Enabled = False
        btnSell20.Enabled = False
    End Sub

    Sub BuySellEnabledTrue()
        btnBuy1.Enabled = True
        btnBuy2.Enabled = True
        btnBuy3.Enabled = True
        btnBuy4.Enabled = True
        btnBuy5.Enabled = True
        btnBuy6.Enabled = True
        btnBuy7.Enabled = True
        btnBuy8.Enabled = True
        btnBuy9.Enabled = True
        btnBuy10.Enabled = True
        btnBuy11.Enabled = True
        btnBuy12.Enabled = True
        btnBuy13.Enabled = True
        btnBuy14.Enabled = True
        btnBuy15.Enabled = True
        btnBuy16.Enabled = True
        btnBuy17.Enabled = True
        btnBuy18.Enabled = True
        btnBuy19.Enabled = True
        btnBuy20.Enabled = True

        btnSell1.Enabled = True
        btnSell2.Enabled = True
        btnSell3.Enabled = True
        btnSell4.Enabled = True
        btnSell5.Enabled = True
        btnSell6.Enabled = True
        btnSell7.Enabled = True
        btnSell8.Enabled = True
        btnSell9.Enabled = True
        btnSell10.Enabled = True
        btnSell11.Enabled = True
        btnSell12.Enabled = True
        btnSell13.Enabled = True
        btnSell14.Enabled = True
        btnSell15.Enabled = True
        btnSell16.Enabled = True
        btnSell17.Enabled = True
        btnSell18.Enabled = True
        btnSell19.Enabled = True
        btnSell20.Enabled = True
    End Sub

    Private Sub TimerCalender_Tick(sender As Object, e As EventArgs) Handles TimerCalender.Tick
        ' lblCalender.Text = DateAdd("m", 6, lblCalender.Text)
        '  lblCalender.Text = DateAdd("h", 1, lblCalender.Text)
        'lblCalender.Text = DateAdd("n", 1, lblCalender.Text)

        ' Here (s, 72, lblCalender.text)'s 36 is proportional to the timer TimerStockPriceChanges' interval 262200
        lblCalender.Text = CStr(DateAdd("s", 72, lblCalender.Text))
        'Event 1
        If lblCalender.Text = "3/28/2014" Then
            If lang = "ENG" Then
                MsgBox(lblCalender.Text & vbLf & "Stock War project has been started! (Event Bonus: +10 bucks)", , "Stock War Notification")
                MyWallet = MyWallet + 10
                lblMoney.Text = MyWallet.ToString("C")
            ElseIf lang = "KOR" Then
                MsgBox(lblCalender.Text & vbLf & "오늘은 주식 전쟁 개발이 시작된 날입니다. (이벤트 보너스: +1만원)", , "주식 전쟁 알림")
                MyWallet = MyWallet + 10
                lblMoney.Text = MyWallet.ToString("￦##,##.##K")
            End If
            'Event 2
        ElseIf lblCalender.Text = "4/2/2014" Then
            If lang = "ENG" Then
                MsgBox(lblCalender.Text & vbLf & "Hooray~ it is birthday of Stock War! (Event Bonus: +10 bucks)", , "Stock War Notification")
                MyWallet = MyWallet + 10
                lblMoney.Text = MyWallet.ToString("C")
            ElseIf lang = "KOR" Then
                MsgBox(lblCalender.Text & vbLf & "오늘은 주식 전쟁 개발이 완료된 날입니다. (이벤트 보너스: +1만원)", , "주식 전쟁 알림")
                MyWallet = MyWallet + 10
                lblMoney.Text = MyWallet.ToString("￦##,##.##K")
            End If

        End If

        'Time and Calender Setting
        TimerCount = TimerCount + 1 'Default Value: +1 NOTE HERE! Change the number here for changing time speed of game
        If TimerCount = 1200 Then 'Default Value: 1200. 50 is 1 hr in lblCalender.text. A day is 24hr so 50*24=1200 is an hr in game.

            'Player recieves monthly salary
            SalaryCount = SalaryCount + 1
            If SalaryCount = 31 Then
                MyWallet = MyWallet + intSalary
                If lang = "ENG" Then
                    MsgBox("You have received monthly salary $" & intSalary & ".", vbInformation, "Stock War Salary")
                    lblMoney.Text = MyWallet.ToString("C")
                ElseIf lang = "KOR" Then
                    MsgBox("이번달 월급으로 ￦" & intSalary & ",000원을 받았습니다.", vbInformation, "주식 전쟁 월급")
                    lblMoney.Text = MyWallet.ToString("￦##,##.##")
                End If
                'Reset salary value
                SalaryCount = 0
            End If

            'Change Months
            If lang = "ENG" Then
                If lblMonths.Text = "Monday" Then
                    lblMonths.Text = "Tuesday"
                ElseIf lblMonths.Text = "Tuesday" Then
                    lblMonths.Text = "Wednesday"
                ElseIf lblMonths.Text = "Wednesday" Then
                    lblMonths.Text = "Thursday"
                ElseIf lblMonths.Text = "Thursday" Then
                    lblMonths.Text = "Friday"
                ElseIf lblMonths.Text = "Friday" Then
                    lblMonths.Text = "Saturday"
                ElseIf lblMonths.Text = "Saturday" Then
                    lblMonths.Text = "Sunday"
                ElseIf lblMonths.Text = "Sunday" Then
                    lblMonths.Text = "Monday"
                End If
            ElseIf lang = "KOR" Then
                If lblMonths.Text = "월요일" Then
                    lblMonths.Text = "화요일"
                ElseIf lblMonths.Text = "화요일" Then
                    lblMonths.Text = "수요일"
                ElseIf lblMonths.Text = "수요일" Then
                    lblMonths.Text = "목요일"
                ElseIf lblMonths.Text = "목요일" Then
                    lblMonths.Text = "금요일"
                ElseIf lblMonths.Text = "금요일" Then
                    lblMonths.Text = "토요일"
                ElseIf lblMonths.Text = "토요일" Then
                    lblMonths.Text = "일요일"
                ElseIf lblMonths.Text = "일요일" Then
                    lblMonths.Text = "월요일"
                End If
            End If


            'Ban buying action on every Sunday and Saturday
            If lblMonths.Text = "Sunday" Or lblMonths.Text = "Saturday" Or lblMonths.Text = "일요일" Or lblMonths.Text = "토요일" Then
                BuySellEnabledFalse()

                If lang = "ENG" Then
                    lblStatus.Text = "Closed"
                ElseIf lang = "KOR" Then
                    lblStatus.Text = "폐장중"
                End If

                lblStatus.ForeColor = Color.DeepPink
                PicStatus.BackgroundImage = PicClosed.BackgroundImage
            Else 'if lblMonths.text = Monday~Friday
                BuySellEnabledTrue()
                If txtHolding1.TextAlign = HorizontalAlignment.Center Then ' This means status is 'M&A'
                    btnBuy1.Enabled = False
                    btnSell1.Enabled = False
                ElseIf txtHolding2.TextAlign = HorizontalAlignment.Center Then
                    btnBuy2.Enabled = False
                    btnSell2.Enabled = False
                ElseIf txtHolding3.TextAlign = HorizontalAlignment.Center Then
                    btnBuy3.Enabled = False
                    btnSell3.Enabled = False
                ElseIf txtHolding4.TextAlign = HorizontalAlignment.Center Then
                    btnBuy4.Enabled = False
                    btnSell4.Enabled = False
                ElseIf txtHolding5.TextAlign = HorizontalAlignment.Center Then
                    btnBuy5.Enabled = False
                    btnSell5.Enabled = False
                ElseIf txtHolding6.TextAlign = HorizontalAlignment.Center Then
                    btnBuy6.Enabled = False
                    btnSell6.Enabled = False
                ElseIf txtHolding7.TextAlign = HorizontalAlignment.Center Then
                    btnBuy7.Enabled = False
                    btnSell7.Enabled = False
                ElseIf txtHolding8.TextAlign = HorizontalAlignment.Center Then
                    btnBuy8.Enabled = False
                    btnSell8.Enabled = False
                ElseIf txtHolding9.TextAlign = HorizontalAlignment.Center Then
                    btnBuy9.Enabled = False
                    btnSell9.Enabled = False
                ElseIf txtHolding10.TextAlign = HorizontalAlignment.Center Then
                    btnBuy10.Enabled = False
                    btnSell10.Enabled = False
                ElseIf txtHolding11.TextAlign = HorizontalAlignment.Center Then
                    btnBuy11.Enabled = False
                    btnSell11.Enabled = False
                ElseIf txtHolding12.TextAlign = HorizontalAlignment.Center Then
                    btnBuy12.Enabled = False
                    btnSell12.Enabled = False
                ElseIf txtHolding13.TextAlign = HorizontalAlignment.Center Then
                    btnBuy13.Enabled = False
                    btnSell13.Enabled = False
                ElseIf txtHolding14.TextAlign = HorizontalAlignment.Center Then
                    btnBuy14.Enabled = False
                    btnSell14.Enabled = False
                ElseIf txtHolding15.TextAlign = HorizontalAlignment.Center Then
                    btnBuy15.Enabled = False
                    btnSell15.Enabled = False
                ElseIf txtHolding16.TextAlign = HorizontalAlignment.Center Then
                    btnBuy16.Enabled = False
                    btnSell16.Enabled = False
                ElseIf txtHolding17.TextAlign = HorizontalAlignment.Center Then
                    btnBuy17.Enabled = False
                    btnSell17.Enabled = False
                ElseIf txtHolding18.TextAlign = HorizontalAlignment.Center Then
                    btnBuy18.Enabled = False
                    btnSell18.Enabled = False
                ElseIf txtHolding19.TextAlign = HorizontalAlignment.Center Then
                    btnBuy19.Enabled = False
                    btnSell19.Enabled = False
                ElseIf txtHolding20.TextAlign = HorizontalAlignment.Center Then
                    btnBuy20.Enabled = False
                    btnSell20.Enabled = False

                End If


                If lang = "ENG" Then
                    lblStatus.Text = "Open"
                ElseIf lang = "KOR" Then
                    lblStatus.Text = "개장중"
                End If
                lblStatus.ForeColor = Color.DarkTurquoise
                PicStatus.BackgroundImage = PicOpen.BackgroundImage
            End If

            'LOOK AT HERE! a global value which was declared at the top ChangeSwitch becomes False, not True which is beginning value.
            If ChangeSwitch = False Then
                ChangeSwitch = True
            Else
                ChangeSwitch = False
            End If

            'Change stock prices randomly, Show them and their graphical changes with imageboxes.
            'Prevent share prices change on every Saturday and Sunday
            If lblMonths.Text = "Monday" Or lblMonths.Text = "Tuesday" Or lblMonths.Text = "Wednesday" Or lblMonths.Text = "Thursday" Or lblMonths.Text = "Friday" Or lblMonths.Text = "월요일" Or lblMonths.Text = "화요일" Or lblMonths.Text = "수요일" Or lblMonths.Text = "목요일" Or lblMonths.Text = "금요일" Then
                If ChangeSwitch = False Then
                    'Changes of stock prices
                    BuyPrice1 = CDec(ChangePrice_Huge(CDec(BuyPrice1)).ToString("n2"))
                    BuyPrice2 = CDec(ChangePrice_Medium(CDec(BuyPrice2)).ToString("n2"))
                    BuyPrice3 = CDec(ChangePrice_Small(CDec(BuyPrice3)).ToString("n2"))
                    BuyPrice4 = CDec(ChangePrice_Small(CDec(BuyPrice4)).ToString("n2"))
                    BuyPrice5 = CDec(ChangePrice_Large(CDec(BuyPrice5)).ToString("n2"))
                    BuyPrice6 = CDec(ChangePrice_Tiny(CDec(BuyPrice6)).ToString("n2"))
                    BuyPrice7 = CDec(ChangePrice_Medium(CDec(BuyPrice7)).ToString("n2"))
                    BuyPrice8 = CDec(ChangePrice_Huge(CDec(BuyPrice8)).ToString("n2"))
                    BuyPrice9 = CDec(ChangePrice_Medium(CDec(BuyPrice9)).ToString("n2"))
                    BuyPrice10 = CDec(ChangePrice_Huge(CDec(BuyPrice10)).ToString("n2"))
                    BuyPrice11 = CDec(ChangePrice_Tiny(CDec(BuyPrice11)).ToString("n2"))
                    BuyPrice12 = CDec(ChangePrice_Large(CDec(BuyPrice12)).ToString("n2"))
                    BuyPrice13 = CDec(ChangePrice_Huge(CDec(BuyPrice13)).ToString("n2"))
                    BuyPrice14 = CDec(ChangePrice_Large(CDec(BuyPrice14)).ToString("n2"))
                    BuyPrice15 = CDec(ChangePrice_Tiny(CDec(BuyPrice15)).ToString("n2"))
                    BuyPrice16 = CDec(ChangePrice_Large(CDec(BuyPrice16)).ToString("n2"))
                    BuyPrice17 = CDec(ChangePrice_Medium(CDec(BuyPrice17)).ToString("n2"))
                    BuyPrice18 = CDec(ChangePrice_Large(CDec(BuyPrice18)).ToString("n2"))
                    BuyPrice19 = CDec(ChangePrice_Small(CDec(BuyPrice19)).ToString("n2"))
                    BuyPrice20 = CDec(ChangePrice_Medium(CDec(BuyPrice20)).ToString("n2"))

                    SamsungAppleSueEvent()
                    TsunamiJapanEvent()
                    FastfoodBoomEvent()
                    InfoAgeEffectEvent()
                    MeetAlienEvent()

                    SellPrice1 = CDec((BuyPrice1 - (BuyPrice1 * intTax)).ToString("n2")) '0.045 is tax in selling action.
                    SellPrice2 = CDec((BuyPrice2 - (BuyPrice2 * intTax)).ToString("n2"))
                    SellPrice3 = CDec((BuyPrice3 - (BuyPrice3 * intTax)).ToString("n2"))
                    SellPrice4 = CDec((BuyPrice4 - (BuyPrice4 * intTax)).ToString("n2"))
                    SellPrice5 = CDec((BuyPrice5 - (BuyPrice5 * intTax)).ToString("n2"))
                    SellPrice6 = CDec((BuyPrice6 - (BuyPrice6 * intTax)).ToString("n2"))
                    SellPrice7 = CDec((BuyPrice7 - (BuyPrice7 * intTax)).ToString("n2"))
                    SellPrice8 = CDec((BuyPrice8 - (BuyPrice8 * intTax)).ToString("n2"))
                    SellPrice9 = CDec((BuyPrice9 - (BuyPrice9 * intTax)).ToString("n2"))
                    SellPrice10 = CDec((BuyPrice10 - (BuyPrice10 * intTax)).ToString("n2"))
                    SellPrice11 = CDec((BuyPrice11 - (BuyPrice11 * intTax)).ToString("n2"))
                    SellPrice12 = CDec((BuyPrice12 - (BuyPrice12 * intTax)).ToString("n2"))
                    SellPrice13 = CDec((BuyPrice13 - (BuyPrice13 * intTax)).ToString("n2"))
                    SellPrice14 = CDec((BuyPrice14 - (BuyPrice14 * intTax)).ToString("n2"))
                    SellPrice15 = CDec((BuyPrice15 - (BuyPrice15 * intTax)).ToString("n2"))
                    SellPrice16 = CDec((BuyPrice16 - (BuyPrice16 * intTax)).ToString("n2"))
                    SellPrice17 = CDec((BuyPrice17 - (BuyPrice17 * intTax)).ToString("n2"))
                    SellPrice18 = CDec((BuyPrice18 - (BuyPrice18 * intTax)).ToString("n2"))
                    SellPrice19 = CDec((BuyPrice19 - (BuyPrice19 * intTax)).ToString("n2"))
                    SellPrice20 = CDec((BuyPrice20 - (BuyPrice20 * intTax)).ToString("n2"))

                    'Display the share prices
                    If lang = "ENG" Then
                        txtBuyPrice1.Text = BuyPrice1.ToString("C")
                        txtSellPrice1.Text = SellPrice1.ToString("C")
                        txtBuyPrice2.Text = BuyPrice2.ToString("C")
                        txtSellPrice2.Text = SellPrice2.ToString("C")
                        txtBuyPrice3.Text = BuyPrice3.ToString("C")
                        txtSellPrice3.Text = SellPrice3.ToString("C")
                        txtBuyPrice4.Text = BuyPrice4.ToString("C")
                        txtSellPrice4.Text = SellPrice4.ToString("C")
                        txtBuyPrice5.Text = BuyPrice5.ToString("C")
                        txtSellPrice5.Text = SellPrice5.ToString("C")
                        txtBuyPrice6.Text = BuyPrice6.ToString("C")
                        txtSellPrice6.Text = SellPrice6.ToString("C")
                        txtBuyPrice7.Text = BuyPrice7.ToString("C")
                        txtSellPrice7.Text = SellPrice7.ToString("C")
                        txtBuyPrice8.Text = BuyPrice8.ToString("C")
                        txtSellPrice8.Text = SellPrice8.ToString("C")
                        txtBuyPrice9.Text = BuyPrice9.ToString("C")
                        txtSellPrice9.Text = SellPrice9.ToString("C")
                        txtBuyPrice10.Text = BuyPrice10.ToString("C")
                        txtSellPrice10.Text = SellPrice10.ToString("C")
                        txtBuyPrice11.Text = BuyPrice11.ToString("C")
                        txtSellPrice11.Text = SellPrice11.ToString("C")
                        txtBuyPrice12.Text = BuyPrice12.ToString("C")
                        txtSellPrice12.Text = SellPrice12.ToString("C")
                        txtBuyPrice13.Text = BuyPrice13.ToString("C")
                        txtSellPrice13.Text = SellPrice13.ToString("C")
                        txtBuyPrice14.Text = BuyPrice14.ToString("C")
                        txtSellPrice14.Text = SellPrice14.ToString("C")
                        txtBuyPrice15.Text = BuyPrice15.ToString("C")
                        txtSellPrice15.Text = SellPrice15.ToString("C")
                        txtBuyPrice16.Text = BuyPrice16.ToString("C")
                        txtSellPrice16.Text = SellPrice16.ToString("C")
                        txtBuyPrice17.Text = BuyPrice17.ToString("C")
                        txtSellPrice17.Text = SellPrice17.ToString("C")
                        txtBuyPrice18.Text = BuyPrice18.ToString("C")
                        txtSellPrice18.Text = SellPrice18.ToString("C")
                        txtBuyPrice19.Text = BuyPrice19.ToString("C")
                        txtSellPrice19.Text = SellPrice19.ToString("C")
                        txtBuyPrice20.Text = BuyPrice20.ToString("C")
                        txtSellPrice20.Text = SellPrice20.ToString("C")
                    ElseIf lang = "KOR" Then
                        txtBuyPrice1.Text = CDec(BuyPrice1.ToString("C")).ToString("￦##.##K")
                        txtSellPrice1.Text = CDec(SellPrice1.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice2.Text = CDec(BuyPrice2.ToString("C")).ToString("￦##.##K")
                        txtSellPrice2.Text = CDec(SellPrice2.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice3.Text = CDec(BuyPrice3.ToString("C")).ToString("￦##.##K")
                        txtSellPrice3.Text = CDec(SellPrice3.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice4.Text = CDec(BuyPrice4.ToString("C")).ToString("￦##.##K")
                        txtSellPrice4.Text = CDec(SellPrice4.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice5.Text = CDec(BuyPrice5.ToString("C")).ToString("￦##.##K")
                        txtSellPrice5.Text = CDec(SellPrice5.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice6.Text = CDec(BuyPrice6.ToString("C")).ToString("￦##.##K")
                        txtSellPrice6.Text = CDec(SellPrice6.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice7.Text = CDec(BuyPrice7.ToString("C")).ToString("￦##.##K")
                        txtSellPrice7.Text = CDec(SellPrice7.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice8.Text = CDec(BuyPrice8.ToString("C")).ToString("￦##.##K")
                        txtSellPrice8.Text = CDec(SellPrice8.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice9.Text = CDec(BuyPrice9.ToString("C")).ToString("￦##.##K")
                        txtSellPrice9.Text = CDec(SellPrice9.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice10.Text = CDec(BuyPrice10.ToString("C")).ToString("￦##.##K")
                        txtSellPrice10.Text = CDec(SellPrice10.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice11.Text = CDec(BuyPrice11.ToString("C")).ToString("￦##.##K")
                        txtSellPrice11.Text = CDec(SellPrice11.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice12.Text = CDec(BuyPrice12.ToString("C")).ToString("￦##.##K")
                        txtSellPrice12.Text = CDec(SellPrice12.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice13.Text = CDec(BuyPrice13.ToString("C")).ToString("￦##.##K")
                        txtSellPrice13.Text = CDec(SellPrice13.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice14.Text = CDec(BuyPrice14.ToString("C")).ToString("￦##.##K")
                        txtSellPrice14.Text = CDec(SellPrice14.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice15.Text = CDec(BuyPrice15.ToString("C")).ToString("￦##.##K")
                        txtSellPrice15.Text = CDec(SellPrice15.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice16.Text = CDec(BuyPrice16.ToString("C")).ToString("￦##.##K")
                        txtSellPrice16.Text = CDec(SellPrice16.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice17.Text = CDec(BuyPrice17.ToString("C")).ToString("￦##.##K")
                        txtSellPrice17.Text = CDec(SellPrice17.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice18.Text = CDec(BuyPrice18.ToString("C")).ToString("￦##.##K")
                        txtSellPrice18.Text = CDec(SellPrice18.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice19.Text = CDec(BuyPrice19.ToString("C")).ToString("￦##.##K")
                        txtSellPrice19.Text = CDec(SellPrice19.ToString("C")).ToString("￦##.##K")
                        txtBuyPrice20.Text = CDec(BuyPrice20.ToString("C")).ToString("￦##.##K")
                        txtSellPrice20.Text = CDec(SellPrice20.ToString("n2")).ToString("￦##.##K")
                    End If


                    'Display points that show how much prices has been changed
                    txtChange1.Text = CDec(CStr(BuyPrice1 - BuyPrice1U)).ToString("n2")
                    txtChange2.Text = CDec(CStr(BuyPrice2 - BuyPrice2U)).ToString("n2")
                    txtChange3.Text = CDec(CStr(BuyPrice3 - BuyPrice3U)).ToString("n2")
                    txtChange4.Text = CDec(CStr(BuyPrice4 - BuyPrice4U)).ToString("n2")
                    txtChange5.Text = CDec(CStr(BuyPrice5 - BuyPrice5U)).ToString("n2")
                    txtChange6.Text = CDec(CStr(BuyPrice6 - BuyPrice6U)).ToString("n2")
                    txtChange7.Text = CDec(CStr(BuyPrice7 - BuyPrice7U)).ToString("n2")
                    txtChange8.Text = CDec(CStr(BuyPrice8 - BuyPrice8U)).ToString("n2")
                    txtChange9.Text = CDec(CStr(BuyPrice9 - BuyPrice9U)).ToString("n2")
                    txtChange10.Text = CDec(CStr(BuyPrice10 - BuyPrice10U)).ToString("n2")
                    txtChange11.Text = CDec(CStr(BuyPrice11 - BuyPrice11U)).ToString("n2")
                    txtChange12.Text = CDec(CStr(BuyPrice12 - BuyPrice12U)).ToString("n2")
                    txtChange13.Text = CDec(CStr(BuyPrice13 - BuyPrice13U)).ToString("n2")
                    txtChange14.Text = CDec(CStr(BuyPrice14 - BuyPrice14U)).ToString("n2")
                    txtChange15.Text = CDec(CStr(BuyPrice15 - BuyPrice15U)).ToString("n2")
                    txtChange16.Text = CDec(CStr(BuyPrice16 - BuyPrice16U)).ToString("n2")
                    txtChange17.Text = CDec(CStr(BuyPrice17 - BuyPrice17U)).ToString("n2")
                    txtChange18.Text = CDec(CStr(BuyPrice18 - BuyPrice18U)).ToString("n2")
                    txtChange19.Text = CDec(CStr(BuyPrice19 - BuyPrice19U)).ToString("n2")
                    txtChange20.Text = CDec(CStr(BuyPrice20 - BuyPrice20U)).ToString("n2")



                    'Check current price is max(of the week) or min(of the week) or nothing.
                    If BuyPrice1 > Max1 Then
                        Max1 = BuyPrice1
                    ElseIf BuyPrice1 < Min1 Then
                        Min1 = BuyPrice1
                    End If
                    If BuyPrice2 > Max2 Then
                        Max2 = BuyPrice2
                    ElseIf BuyPrice2 < Min2 Then
                        Min2 = BuyPrice2
                    End If
                    If BuyPrice3 > Max3 Then
                        Max3 = BuyPrice3
                    ElseIf BuyPrice3 < Min3 Then
                        Min3 = BuyPrice3
                    End If
                    If BuyPrice4 > Max4 Then
                        Max4 = BuyPrice4
                    ElseIf BuyPrice4 < Min4 Then
                        Min4 = BuyPrice4
                    End If
                    If BuyPrice5 > Max5 Then
                        Max5 = BuyPrice5
                    ElseIf BuyPrice5 < Min5 Then
                        Min5 = BuyPrice5
                    End If
                    If BuyPrice6 > Max6 Then
                        Max6 = BuyPrice6
                    ElseIf BuyPrice6 < Min6 Then
                        Min6 = BuyPrice6
                    End If
                    If BuyPrice7 > Max7 Then
                        Max7 = BuyPrice7
                    ElseIf BuyPrice7 < Min7 Then
                        Min7 = BuyPrice7
                    End If
                    If BuyPrice8 > Max8 Then
                        Max8 = BuyPrice8
                    ElseIf BuyPrice8 < Min8 Then
                        Min8 = BuyPrice8
                    End If
                    If BuyPrice9 > Max9 Then
                        Max9 = BuyPrice9
                    ElseIf BuyPrice9 < Min9 Then
                        Min9 = BuyPrice9
                    End If
                    If BuyPrice10 > Max10 Then
                        Max10 = BuyPrice10
                    ElseIf BuyPrice10 < Min10 Then
                        Min10 = BuyPrice10
                    End If
                    If BuyPrice11 > Max11 Then
                        Max11 = BuyPrice11
                    ElseIf BuyPrice1 < Min1 Then
                        Min11 = BuyPrice11
                    End If
                    If BuyPrice12 > Max12 Then
                        Max12 = BuyPrice12
                    ElseIf BuyPrice12 < Min12 Then
                        Min12 = BuyPrice12
                    End If
                    If BuyPrice13 > Max13 Then
                        Max13 = BuyPrice13
                    ElseIf BuyPrice13 < Min13 Then
                        Min13 = BuyPrice13
                    End If
                    If BuyPrice14 > Max14 Then
                        Max14 = BuyPrice14
                    ElseIf BuyPrice14 < Min14 Then
                        Min14 = BuyPrice14
                    End If
                    If BuyPrice15 > Max15 Then
                        Max15 = BuyPrice15
                    ElseIf BuyPrice15 < Min15 Then
                        Min15 = BuyPrice15
                    End If
                    If BuyPrice16 > Max16 Then
                        Max16 = BuyPrice16
                    ElseIf BuyPrice16 < Min16 Then
                        Min16 = BuyPrice16
                    End If
                    If BuyPrice17 > Max17 Then
                        Max17 = BuyPrice17
                    ElseIf BuyPrice17 < Min17 Then
                        Min17 = BuyPrice17
                    End If
                    If BuyPrice18 > Max18 Then
                        Max18 = BuyPrice18
                    ElseIf BuyPrice18 < Min18 Then
                        Min18 = BuyPrice18
                    End If
                    If BuyPrice19 > Max19 Then
                        Max19 = BuyPrice19
                    ElseIf BuyPrice19 < Min19 Then
                        Min19 = BuyPrice19
                    End If
                    If BuyPrice20 > Max20 Then
                        Max20 = BuyPrice20
                    ElseIf BuyPrice20 < Min20 Then
                        Min20 = BuyPrice20
                    End If


                ElseIf ChangeSwitch = True Then
                    BuyPrice1U = CDec(ChangePrice_Huge(CDec(BuyPrice1U)).ToString("n2"))
                    BuyPrice2U = CDec(ChangePrice_Medium(CDec(BuyPrice2U)).ToString("n2"))
                    BuyPrice3U = CDec(ChangePrice_Small(CDec(BuyPrice3U)).ToString("n2"))
                    BuyPrice4U = CDec(ChangePrice_Small(CDec(BuyPrice4U)).ToString("n2"))
                    BuyPrice5U = CDec(ChangePrice_Large(CDec(BuyPrice5U)).ToString("n2"))
                    BuyPrice6U = CDec(ChangePrice_Tiny(CDec(BuyPrice6U)).ToString("n2"))
                    BuyPrice7U = CDec(ChangePrice_Medium(CDec(BuyPrice7U)).ToString("n2"))
                    BuyPrice8U = CDec(ChangePrice_Huge(CDec(BuyPrice8U)).ToString("n2"))
                    BuyPrice9U = CDec(ChangePrice_Medium(CDec(BuyPrice9U)).ToString("n2"))
                    BuyPrice10U = CDec(ChangePrice_Huge(CDec(BuyPrice10U)).ToString("n2"))
                    BuyPrice11U = CDec(ChangePrice_Tiny(CDec(BuyPrice11U)).ToString("n2"))
                    BuyPrice12U = CDec(ChangePrice_Large(CDec(BuyPrice12U)).ToString("n2"))
                    BuyPrice13U = CDec(ChangePrice_Huge(CDec(BuyPrice13U)).ToString("n2"))
                    BuyPrice14U = CDec(ChangePrice_Large(CDec(BuyPrice14U)).ToString("n2"))
                    BuyPrice15U = CDec(ChangePrice_Tiny(CDec(BuyPrice15U)).ToString("n2"))
                    BuyPrice16U = CDec(ChangePrice_Large(CDec(BuyPrice16U)).ToString("n2"))
                    BuyPrice17U = CDec(ChangePrice_Medium(CDec(BuyPrice17U)).ToString("n2"))
                    BuyPrice18U = CDec(ChangePrice_Large(CDec(BuyPrice18U)).ToString("n2"))
                    BuyPrice19U = CDec(ChangePrice_Small(CDec(BuyPrice19U)).ToString("n2"))
                    BuyPrice20U = CDec(ChangePrice_Medium(CDec(BuyPrice20U)).ToString("n2"))

                    SamsungAppleSueEvent_U()
                    TsunamiJapanEvent_U()
                    FastfoodBoomEvent_U()
                    InfoAgeEffectEvent_U()
                    MeetAlienEvent_U()


                    SellPrice1U = CDec((BuyPrice1U - (BuyPrice1U * intTax)).ToString("n2"))
                    SellPrice2U = CDec((BuyPrice2U - (BuyPrice2U * intTax)).ToString("n2"))
                    SellPrice3U = CDec((BuyPrice3U - (BuyPrice3U * intTax)).ToString("n2"))
                    SellPrice4U = CDec((BuyPrice4U - (BuyPrice4U * intTax)).ToString("n2"))
                    SellPrice5U = CDec((BuyPrice5U - (BuyPrice5U * intTax)).ToString("n2"))
                    SellPrice6U = CDec((BuyPrice6U - (BuyPrice6U * intTax)).ToString("n2"))
                    SellPrice7U = CDec((BuyPrice7U - (BuyPrice7U * intTax)).ToString("n2"))
                    SellPrice8U = CDec((BuyPrice8U - (BuyPrice8U * intTax)).ToString("n2"))
                    SellPrice9U = CDec((BuyPrice9U - (BuyPrice9U * intTax)).ToString("n2"))
                    SellPrice10U = CDec((BuyPrice10U - (BuyPrice10U * intTax)).ToString("n2"))
                    SellPrice11U = CDec((BuyPrice11U - (BuyPrice11U * intTax)).ToString("n2"))
                    SellPrice12U = CDec((BuyPrice12U - (BuyPrice12U * intTax)).ToString("n2"))
                    SellPrice13U = CDec((BuyPrice13U - (BuyPrice13U * intTax)).ToString("n2"))
                    SellPrice14U = CDec((BuyPrice14U - (BuyPrice14U * intTax)).ToString("n2"))
                    SellPrice15U = CDec((BuyPrice15U - (BuyPrice15U * intTax)).ToString("n2"))
                    SellPrice16U = CDec((BuyPrice16U - (BuyPrice16U * intTax)).ToString("n2"))
                    SellPrice17U = CDec((BuyPrice17U - (BuyPrice17U * intTax)).ToString("n2"))
                    SellPrice18U = CDec((BuyPrice18U - (BuyPrice18U * intTax)).ToString("n2"))
                    SellPrice19U = CDec((BuyPrice19U - (BuyPrice19U * intTax)).ToString("n2"))
                    SellPrice20U = CDec((BuyPrice20U - (BuyPrice20U * intTax)).ToString("n2"))

                    If lang = "ENG" Then
                        txtBuyPrice1.Text = BuyPrice1U.ToString("C")
                        txtSellPrice1.Text = SellPrice1U.ToString("C")
                        txtBuyPrice2.Text = BuyPrice2U.ToString("C")
                        txtSellPrice2.Text = SellPrice2U.ToString("C")
                        txtBuyPrice3.Text = BuyPrice3U.ToString("C")
                        txtSellPrice3.Text = SellPrice3U.ToString("C")
                        txtBuyPrice4.Text = BuyPrice4U.ToString("C")
                        txtSellPrice4.Text = SellPrice4U.ToString("C")
                        txtBuyPrice5.Text = BuyPrice5U.ToString("C")
                        txtSellPrice5.Text = SellPrice5U.ToString("C")
                        txtBuyPrice6.Text = BuyPrice6U.ToString("C")
                        txtSellPrice6.Text = SellPrice6U.ToString("C")
                        txtBuyPrice7.Text = BuyPrice7U.ToString("C")
                        txtSellPrice7.Text = SellPrice7U.ToString("C")
                        txtBuyPrice8.Text = BuyPrice8U.ToString("C")
                        txtSellPrice8.Text = SellPrice8U.ToString("C")
                        txtBuyPrice9.Text = BuyPrice9U.ToString("C")
                        txtSellPrice9.Text = SellPrice9U.ToString("C")
                        txtBuyPrice10.Text = BuyPrice10U.ToString("C")
                        txtSellPrice10.Text = SellPrice10U.ToString("C")
                        txtBuyPrice11.Text = BuyPrice11U.ToString("C")
                        txtSellPrice11.Text = SellPrice11U.ToString("C")
                        txtBuyPrice12.Text = BuyPrice12U.ToString("C")
                        txtSellPrice12.Text = SellPrice12U.ToString("C")
                        txtBuyPrice13.Text = BuyPrice13U.ToString("C")
                        txtSellPrice13.Text = SellPrice13U.ToString("C")
                        txtBuyPrice14.Text = BuyPrice14U.ToString("C")
                        txtSellPrice14.Text = SellPrice14U.ToString("C")
                        txtBuyPrice15.Text = BuyPrice15U.ToString("C")
                        txtSellPrice15.Text = SellPrice15U.ToString("C")
                        txtBuyPrice16.Text = BuyPrice16U.ToString("C")
                        txtSellPrice16.Text = SellPrice16U.ToString("C")
                        txtBuyPrice17.Text = BuyPrice17U.ToString("C")
                        txtSellPrice17.Text = SellPrice17U.ToString("C")
                        txtBuyPrice18.Text = BuyPrice18U.ToString("C")
                        txtSellPrice18.Text = SellPrice18U.ToString("C")
                        txtBuyPrice19.Text = BuyPrice19U.ToString("C")
                        txtSellPrice19.Text = SellPrice19U.ToString("C")
                        txtBuyPrice20.Text = BuyPrice20U.ToString("C")
                        txtSellPrice20.Text = SellPrice20U.ToString("C")
                    ElseIf lang = "KOR" Then
                        txtBuyPrice1.Text = BuyPrice1U.ToString("￦##.##K")
                        txtSellPrice1.Text = SellPrice1U.ToString("￦##.##K")
                        txtBuyPrice2.Text = BuyPrice2U.ToString("￦##.##K")
                        txtSellPrice2.Text = SellPrice2U.ToString("￦##.##K")
                        txtBuyPrice3.Text = BuyPrice3U.ToString("￦##.##K")
                        txtSellPrice3.Text = SellPrice3U.ToString("￦##.##K")
                        txtBuyPrice4.Text = BuyPrice4U.ToString("￦##.##K")
                        txtSellPrice4.Text = SellPrice4U.ToString("￦##.##K")
                        txtBuyPrice5.Text = BuyPrice5U.ToString("￦##.##K")
                        txtSellPrice5.Text = SellPrice5U.ToString("￦##.##K")
                        txtBuyPrice6.Text = BuyPrice6U.ToString("￦##.##K")
                        txtSellPrice6.Text = SellPrice6U.ToString("￦##.##K")
                        txtBuyPrice7.Text = BuyPrice7U.ToString("￦##.##K")
                        txtSellPrice7.Text = SellPrice7U.ToString("￦##.##K")
                        txtBuyPrice8.Text = BuyPrice8U.ToString("￦##.##K")
                        txtSellPrice8.Text = SellPrice8U.ToString("￦##.##K")
                        txtBuyPrice9.Text = BuyPrice9U.ToString("￦##.##K")
                        txtSellPrice9.Text = SellPrice9U.ToString("￦##.##K")
                        txtBuyPrice10.Text = BuyPrice10U.ToString("￦##.##K")
                        txtSellPrice10.Text = SellPrice10U.ToString("￦##.##K")
                        txtBuyPrice11.Text = BuyPrice11U.ToString("￦##.##K")
                        txtSellPrice11.Text = SellPrice11U.ToString("￦##.##K")
                        txtBuyPrice12.Text = BuyPrice12U.ToString("￦##.##K")
                        txtSellPrice12.Text = SellPrice12U.ToString("￦##.##K")
                        txtBuyPrice13.Text = BuyPrice13U.ToString("￦##.##K")
                        txtSellPrice13.Text = SellPrice13U.ToString("￦##.##K")
                        txtBuyPrice14.Text = BuyPrice14U.ToString("￦##.##K")
                        txtSellPrice14.Text = SellPrice14U.ToString("￦##.##K")
                        txtBuyPrice15.Text = BuyPrice15U.ToString("￦##.##K")
                        txtSellPrice15.Text = SellPrice15U.ToString("￦##.##K")
                        txtBuyPrice16.Text = BuyPrice16U.ToString("￦##.##K")
                        txtSellPrice16.Text = SellPrice16U.ToString("￦##.##K")
                        txtBuyPrice17.Text = BuyPrice17U.ToString("￦##.##K")
                        txtSellPrice17.Text = SellPrice17U.ToString("￦##.##K")
                        txtBuyPrice18.Text = BuyPrice18U.ToString("￦##.##K")
                        txtSellPrice18.Text = SellPrice18U.ToString("￦##.##K")
                        txtBuyPrice19.Text = BuyPrice19U.ToString("￦##.##K")
                        txtSellPrice19.Text = SellPrice19U.ToString("￦##.##K")
                        txtBuyPrice20.Text = BuyPrice20U.ToString("￦##.##K")
                        txtSellPrice20.Text = SellPrice20U.ToString("￦##.##K")
                    End If


                    txtChange1.Text = CDec(CStr(BuyPrice1U - BuyPrice1)).ToString("n2")
                    txtChange2.Text = CDec(CStr(BuyPrice2U - BuyPrice2)).ToString("n2")
                    txtChange3.Text = CDec(CStr(BuyPrice3U - BuyPrice3)).ToString("n2")
                    txtChange4.Text = CDec(CStr(BuyPrice4U - BuyPrice4)).ToString("n2")
                    txtChange5.Text = CDec(CStr(BuyPrice5U - BuyPrice5)).ToString("n2")
                    txtChange6.Text = CDec(CStr(BuyPrice6U - BuyPrice6)).ToString("n2")
                    txtChange7.Text = CDec(CStr(BuyPrice7U - BuyPrice7)).ToString("n2")
                    txtChange8.Text = CDec(CStr(BuyPrice8U - BuyPrice8)).ToString("n2")
                    txtChange9.Text = CDec(CStr(BuyPrice9U - BuyPrice9)).ToString("n2")
                    txtChange10.Text = CDec(CStr(BuyPrice10U - BuyPrice10)).ToString("n2")
                    txtChange11.Text = CDec(CStr(BuyPrice11U - BuyPrice11)).ToString("n2")
                    txtChange12.Text = CDec(CStr(BuyPrice12U - BuyPrice12)).ToString("n2")
                    txtChange13.Text = CDec(CStr(BuyPrice13U - BuyPrice13)).ToString("n2")
                    txtChange14.Text = CDec(CStr(BuyPrice14U - BuyPrice14)).ToString("n2")
                    txtChange15.Text = CDec(CStr(BuyPrice15U - BuyPrice15)).ToString("n2")
                    txtChange16.Text = CDec(CStr(BuyPrice16U - BuyPrice16)).ToString("n2")
                    txtChange17.Text = CDec(CStr(BuyPrice17U - BuyPrice17)).ToString("n2")
                    txtChange18.Text = CDec(CStr(BuyPrice18U - BuyPrice18)).ToString("n2")
                    txtChange19.Text = CDec(CStr(BuyPrice19U - BuyPrice19)).ToString("n2")
                    txtChange20.Text = CDec(CStr(BuyPrice20U - BuyPrice20)).ToString("n2")

                    If BuyPrice1U > Max1 Then
                        Max1 = BuyPrice1U
                    ElseIf BuyPrice1U < Min1 Then
                        Min1 = BuyPrice1U
                    End If
                    If BuyPrice2U > Max2 Then
                        Max2 = BuyPrice2U
                    ElseIf BuyPrice2U < Min2 Then
                        Min2 = BuyPrice2U
                    End If
                    If BuyPrice3U > Max3 Then
                        Max3 = BuyPrice3U
                    ElseIf BuyPrice3U < Min3 Then
                        Min3 = BuyPrice3U
                    End If
                    If BuyPrice4U > Max4 Then
                        Max4 = BuyPrice4U
                    ElseIf BuyPrice4U < Min4 Then
                        Min4 = BuyPrice4U
                    End If
                    If BuyPrice5U > Max5 Then
                        Max5 = BuyPrice5U
                    ElseIf BuyPrice5U < Min5 Then
                        Min5 = BuyPrice5U
                    End If
                    If BuyPrice6U > Max6 Then
                        Max6 = BuyPrice6U
                    ElseIf BuyPrice6U < Min6 Then
                        Min6 = BuyPrice6U
                    End If
                    If BuyPrice7U > Max7 Then
                        Max7 = BuyPrice7U
                    ElseIf BuyPrice7U < Min7 Then
                        Min7 = BuyPrice7U
                    End If
                    If BuyPrice8U > Max8 Then
                        Max8 = BuyPrice8U
                    ElseIf BuyPrice8U < Min8 Then
                        Min8 = BuyPrice8U
                    End If
                    If BuyPrice9U > Max9 Then
                        Max9 = BuyPrice9U
                    ElseIf BuyPrice9U < Min9 Then
                        Min9 = BuyPrice9U
                    End If
                    If BuyPrice10U > Max10 Then
                        Max10 = BuyPrice10U
                    ElseIf BuyPrice10U < Min10 Then
                        Min10 = BuyPrice10U
                    End If
                    If BuyPrice11U > Max11 Then
                        Max11 = BuyPrice11U
                    ElseIf BuyPrice11U < Min11 Then
                        Min11 = BuyPrice11U
                    End If
                    If BuyPrice12U > Max12 Then
                        Max12 = BuyPrice12U
                    ElseIf BuyPrice12U < Min12 Then
                        Min12 = BuyPrice12U
                    End If
                    If BuyPrice13U > Max13 Then
                        Max13 = BuyPrice13U
                    ElseIf BuyPrice13U < Min13 Then
                        Min13 = BuyPrice13U
                    End If
                    If BuyPrice14U > Max14 Then
                        Max14 = BuyPrice14U
                    ElseIf BuyPrice14U < Min14 Then
                        Min14 = BuyPrice14U
                    End If
                    If BuyPrice15U > Max15 Then
                        Max15 = BuyPrice15U
                    ElseIf BuyPrice15U < Min15 Then
                        Min15 = BuyPrice15U
                    End If
                    If BuyPrice16U > Max16 Then
                        Max16 = BuyPrice16U
                    ElseIf BuyPrice16U < Min16 Then
                        Min16 = BuyPrice16U
                    End If
                    If BuyPrice17U > Max17 Then
                        Max17 = BuyPrice17U
                    ElseIf BuyPrice17U < Min17 Then
                        Min17 = BuyPrice17U
                    End If
                    If BuyPrice18U > Max18 Then
                        Max18 = BuyPrice18U
                    ElseIf BuyPrice18U < Min18 Then
                        Min18 = BuyPrice18U
                    End If
                    If BuyPrice19U > Max19 Then
                        Max19 = BuyPrice19U
                    ElseIf BuyPrice19U < Min19 Then
                        Min19 = BuyPrice19U
                    End If
                    If BuyPrice20U > Max20 Then
                        Max20 = BuyPrice20U
                    ElseIf BuyPrice20U < Min20 Then
                        Min20 = BuyPrice20U
                    End If
                End If

            Else 'else if lblmonths = Sunday or lblmonths = Saturday
                PictureBox1.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox2.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox3.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox4.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox5.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox6.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox7.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox8.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox9.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox10.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox11.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox12.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox13.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox14.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox15.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox16.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox17.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox18.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox19.BackgroundImage = PicUnchanged.BackgroundImage
                PictureBox20.BackgroundImage = PicUnchanged.BackgroundImage

                txtChange1.Text = "0"
                txtChange2.Text = "0"
                txtChange3.Text = "0"
                txtChange4.Text = "0"
                txtChange5.Text = "0"
                txtChange6.Text = "0"
                txtChange7.Text = "0"
                txtChange8.Text = "0"
                txtChange9.Text = "0"
                txtChange10.Text = "0"
                txtChange11.Text = "0"
                txtChange12.Text = "0"
                txtChange13.Text = "0"
                txtChange14.Text = "0"
                txtChange15.Text = "0"
                txtChange16.Text = "0"
                txtChange17.Text = "0"
                txtChange18.Text = "0"
                txtChange19.Text = "0"
                txtChange20.Text = "0"
            End If

            'Show graphical changes with imageboxes and Change Change1.text Color
            If CDec(txtChange1.Text) > 0 Then
                txtChange1.ForeColor = Color.Red
                PictureBox1.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange1.Text) < 0 Then
                txtChange1.ForeColor = Color.Blue
                PictureBox1.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange1.ForeColor = Color.Black
                PictureBox1.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange2.Text) > 0 Then
                txtChange2.ForeColor = Color.Red
                PictureBox2.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange2.Text) < 0 Then
                txtChange2.ForeColor = Color.Blue
                PictureBox2.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange2.ForeColor = Color.Black
                PictureBox2.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange3.Text) > 0 Then
                txtChange3.ForeColor = Color.Red
                PictureBox3.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange3.Text) < 0 Then
                txtChange3.ForeColor = Color.Blue
                PictureBox3.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange3.ForeColor = Color.Black
                PictureBox3.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange4.Text) > 0 Then
                txtChange4.ForeColor = Color.Red
                PictureBox4.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange4.Text) < 0 Then
                txtChange4.ForeColor = Color.Blue
                PictureBox4.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange4.ForeColor = Color.Black
                PictureBox4.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange5.Text) > 0 Then
                txtChange5.ForeColor = Color.Red
                PictureBox5.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange5.Text) < 0 Then
                txtChange5.ForeColor = Color.Blue
                PictureBox5.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange5.ForeColor = Color.Black
                PictureBox5.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange6.Text) > 0 Then
                txtChange6.ForeColor = Color.Red
                PictureBox6.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange6.Text) < 0 Then
                txtChange6.ForeColor = Color.Blue
                PictureBox6.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange6.ForeColor = Color.Black
                PictureBox6.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange7.Text) > 0 Then
                txtChange7.ForeColor = Color.Red
                PictureBox7.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange7.Text) < 0 Then
                txtChange7.ForeColor = Color.Blue
                PictureBox7.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange7.ForeColor = Color.Black
                PictureBox7.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange8.Text) > 0 Then
                txtChange8.ForeColor = Color.Red
                PictureBox8.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange8.Text) < 0 Then
                txtChange8.ForeColor = Color.Blue
                PictureBox8.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange8.ForeColor = Color.Black
                PictureBox8.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange9.Text) > 0 Then
                txtChange9.ForeColor = Color.Red
                PictureBox9.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange9.Text) < 0 Then
                txtChange9.ForeColor = Color.Blue
                PictureBox9.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange9.ForeColor = Color.Black
                PictureBox9.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange10.Text) > 0 Then
                txtChange10.ForeColor = Color.Red
                PictureBox10.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange10.Text) < 0 Then
                txtChange10.ForeColor = Color.Blue
                PictureBox10.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange10.ForeColor = Color.Black
                PictureBox10.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange11.Text) > 0 Then
                txtChange11.ForeColor = Color.Red
                PictureBox11.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange11.Text) < 0 Then
                txtChange11.ForeColor = Color.Blue
                PictureBox11.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange11.ForeColor = Color.Black
                PictureBox11.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange12.Text) > 0 Then
                txtChange12.ForeColor = Color.Red
                PictureBox12.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange12.Text) < 0 Then
                txtChange12.ForeColor = Color.Blue
                PictureBox12.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange12.ForeColor = Color.Black
                PictureBox12.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange13.Text) > 0 Then
                txtChange13.ForeColor = Color.Red
                PictureBox13.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange13.Text) < 0 Then
                txtChange13.ForeColor = Color.Blue
                PictureBox13.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange13.ForeColor = Color.Black
                PictureBox13.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange14.Text) > 0 Then
                txtChange14.ForeColor = Color.Red
                PictureBox14.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange14.Text) < 0 Then
                txtChange14.ForeColor = Color.Blue
                PictureBox14.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange14.ForeColor = Color.Black
                PictureBox14.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange15.Text) > 0 Then
                txtChange15.ForeColor = Color.Red
                PictureBox15.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange15.Text) < 0 Then
                txtChange15.ForeColor = Color.Blue
                PictureBox15.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange15.ForeColor = Color.Black
                PictureBox15.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange16.Text) > 0 Then
                txtChange16.ForeColor = Color.Red
                PictureBox16.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange16.Text) < 0 Then
                txtChange16.ForeColor = Color.Blue
                PictureBox16.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange16.ForeColor = Color.Black
                PictureBox16.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange17.Text) > 0 Then
                txtChange17.ForeColor = Color.Red
                PictureBox17.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange17.Text) < 0 Then
                txtChange17.ForeColor = Color.Blue
                PictureBox17.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange17.ForeColor = Color.Black
                PictureBox17.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange18.Text) > 0 Then
                txtChange18.ForeColor = Color.Red
                PictureBox18.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange18.Text) < 0 Then
                txtChange18.ForeColor = Color.Blue
                PictureBox18.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange18.ForeColor = Color.Black
                PictureBox18.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange19.Text) > 0 Then
                txtChange19.ForeColor = Color.Red
                PictureBox19.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange19.Text) < 0 Then
                txtChange19.ForeColor = Color.Blue
                PictureBox19.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange19.ForeColor = Color.Black
                PictureBox19.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            If CDec(txtChange20.Text) > 0 Then
                txtChange20.ForeColor = Color.Red
                PictureBox20.BackgroundImage = PicIncrease.BackgroundImage
            ElseIf CDec(txtChange20.Text) < 0 Then
                txtChange20.ForeColor = Color.Blue
                PictureBox20.BackgroundImage = PicDecrease.BackgroundImage
            Else
                txtChange20.ForeColor = Color.Black
                PictureBox20.BackgroundImage = PicUnchanged.BackgroundImage
            End If
            'After determining increase/unchanged/decrease,
            If lang = "KOR" And lblMonths.Text = "월요일" Or lblMonths.Text = "화요일" Or lblMonths.Text = "수요일" Or lblMonths.Text = "목요일" Or lblMonths.Text = "금요일" Then
                txtChange1.Text &= "K"
                txtChange2.Text &= "K"
                txtChange3.Text &= "K"
                txtChange4.Text &= "K"
                txtChange5.Text &= "K"
                txtChange6.Text &= "K"
                txtChange7.Text &= "K"
                txtChange8.Text &= "K"
                txtChange9.Text &= "K"
                txtChange10.Text &= "K"
                txtChange11.Text &= "K"
                txtChange12.Text &= "K"
                txtChange13.Text &= "K"
                txtChange14.Text &= "K"
                txtChange15.Text &= "K"
                txtChange16.Text &= "K"
                txtChange17.Text &= "K"
                txtChange18.Text &= "K"
                txtChange19.Text &= "K"
                txtChange20.Text &= "K"
            End If


            'Reset Max and Min value every week
            If lblMonths.Text = "Sunday" Or lblMonths.Text = "일요일" Then
                If ChangeSwitch = False Then
                    Min1 = BuyPrice1
                    Max1 = Min1
                    Min2 = BuyPrice2
                    Max2 = Min2
                    Min3 = BuyPrice3
                    Max3 = Min3
                    Min4 = BuyPrice4
                    Max4 = Min4
                    Min5 = BuyPrice5
                    Max5 = Min5
                    Min6 = BuyPrice6
                    Max6 = Min6
                    Min7 = BuyPrice7
                    Max7 = Min7
                    Min8 = BuyPrice8
                    Max8 = Min8
                    Min9 = BuyPrice9
                    Max9 = Min9
                    Min10 = BuyPrice10
                    Max10 = Min10
                    Min11 = BuyPrice11
                    Max11 = Min11
                    Min12 = BuyPrice12
                    Max12 = Min12
                    Min13 = BuyPrice13
                    Max13 = Min13
                    Min14 = BuyPrice14
                    Max14 = Min14
                    Min15 = BuyPrice15
                    Max15 = Min15
                    Min16 = BuyPrice16
                    Max16 = Min16
                    Min17 = BuyPrice17
                    Max17 = Min17
                    Min18 = BuyPrice18
                    Max18 = Min18
                    Min19 = BuyPrice19
                    Max19 = Min19
                    Min20 = BuyPrice20
                    Max20 = Min20

                ElseIf ChangeSwitch = True Then
                    Min1 = BuyPrice1U
                    Max1 = Min1
                    Min2 = BuyPrice2U
                    Max2 = Min2
                    Min3 = BuyPrice3U
                    Max3 = Min3
                    Min4 = BuyPrice4U
                    Max4 = Min4
                    Min5 = BuyPrice5U
                    Max5 = Min5
                    Min6 = BuyPrice6U
                    Max6 = Min6
                    Min7 = BuyPrice7U
                    Max7 = Min7
                    Min8 = BuyPrice8U
                    Max8 = Min8
                    Min9 = BuyPrice9U
                    Max9 = Min9
                    Min10 = BuyPrice10U
                    Max10 = Min10
                    Min11 = BuyPrice11U
                    Max11 = Min11
                    Min12 = BuyPrice12U
                    Max12 = Min12
                    Min13 = BuyPrice13U
                    Max13 = Min13
                    Min14 = BuyPrice14U
                    Max14 = Min14
                    Min15 = BuyPrice15U
                    Max15 = Min15
                    Min16 = BuyPrice16U
                    Max16 = Min16
                    Min17 = BuyPrice17U
                    Max17 = Min17
                    Min18 = BuyPrice18U
                    Max18 = Min18
                    Min19 = BuyPrice19U
                    Max19 = Min19
                    Min20 = BuyPrice20U
                    Max20 = Min20
                End If

                'Close stock market on every Sunday and Saturday
                'txtBuyPrice1.Text = "Closed"
                'txtBuyPrice2.Text = "Closed"
                'txtBuyPrice3.Text = "Closed"
                'txtBuyPrice4.Text = "Closed"
                'txtBuyPrice5.Text = "Closed"

                'txtSellPrice1.Text = "Closed"
                'txtSellPrice2.Text = "Closed"
                'txtSellPrice3.Text = "Closed"
                'txtSellPrice4.Text = "Closed"
                'txtSellPrice5.Text = "Closed"
            End If

            'Display Max and Min
            If lang = "ENG" Then
                txtWeekMax1.Text = CStr(Max1.ToString("C"))
                txtWeekMin1.Text = CStr(Min1.ToString("C"))
                txtWeekMax2.Text = CStr(Max2.ToString("C"))
                txtWeekMin2.Text = CStr(Min2.ToString("C"))
                txtWeekMax3.Text = CStr(Max3.ToString("C"))
                txtWeekMin3.Text = CStr(Min3.ToString("C"))
                txtWeekMax4.Text = CStr(Max4.ToString("C"))
                txtWeekMin4.Text = CStr(Min4.ToString("C"))
                txtWeekMax5.Text = CStr(Max5.ToString("C"))
                txtWeekMin5.Text = CStr(Min5.ToString("C"))
                txtWeekMax6.Text = CStr(Max6.ToString("C"))
                txtWeekMin6.Text = CStr(Min6.ToString("C"))
                txtWeekMax7.Text = CStr(Max7.ToString("C"))
                txtWeekMin7.Text = CStr(Min7.ToString("C"))
                txtWeekMax8.Text = CStr(Max8.ToString("C"))
                txtWeekMin8.Text = CStr(Min8.ToString("C"))
                txtWeekMax9.Text = CStr(Max9.ToString("C"))
                txtWeekMin9.Text = CStr(Min9.ToString("C"))
                txtWeekMax10.Text = CStr(Max10.ToString("C"))
                txtWeekMin10.Text = CStr(Min10.ToString("C"))
                txtWeekMax11.Text = CStr(Max11.ToString("C"))
                txtWeekMin11.Text = CStr(Min11.ToString("C"))
                txtWeekMax12.Text = CStr(Max12.ToString("C"))
                txtWeekMin12.Text = CStr(Min12.ToString("C"))
                txtWeekMax13.Text = CStr(Max13.ToString("C"))
                txtWeekMin13.Text = CStr(Min13.ToString("C"))
                txtWeekMax14.Text = CStr(Max14.ToString("C"))
                txtWeekMin14.Text = CStr(Min14.ToString("C"))
                txtWeekMax15.Text = CStr(Max15.ToString("C"))
                txtWeekMin15.Text = CStr(Min15.ToString("C"))
                txtWeekMax16.Text = CStr(Max16.ToString("C"))
                txtWeekMin16.Text = CStr(Min16.ToString("C"))
                txtWeekMax17.Text = CStr(Max17.ToString("C"))
                txtWeekMin17.Text = CStr(Min17.ToString("C"))
                txtWeekMax18.Text = CStr(Max18.ToString("C"))
                txtWeekMin18.Text = CStr(Min18.ToString("C"))
                txtWeekMax19.Text = CStr(Max19.ToString("C"))
                txtWeekMin19.Text = CStr(Min19.ToString("C"))
                txtWeekMax20.Text = CStr(Max20.ToString("C"))
                txtWeekMin20.Text = CStr(Min20.ToString("C"))
            ElseIf lang = "KOR" Then
                txtWeekMax1.Text = CDec(Max1.ToString("C")).ToString("￦##.##K")
                txtWeekMin1.Text = CDec(Min1.ToString("C")).ToString("￦##.##K")
                txtWeekMax2.Text = CDec(Max2.ToString("C")).ToString("￦##.##K")
                txtWeekMin2.Text = CDec(Min2.ToString("C")).ToString("￦##.##K")
                txtWeekMax3.Text = CDec(Max3.ToString("C")).ToString("￦##.##K")
                txtWeekMin3.Text = CDec(Min3.ToString("C")).ToString("￦##.##K")
                txtWeekMax4.Text = CDec(Max4.ToString("C")).ToString("￦##.##K")
                txtWeekMin4.Text = CDec(Min4.ToString("C")).ToString("￦##.##K")
                txtWeekMax5.Text = CDec(Max5.ToString("C")).ToString("￦##.##K")
                txtWeekMin5.Text = CDec(Min5.ToString("C")).ToString("￦##.##K")
                txtWeekMax6.Text = CDec(Max6.ToString("C")).ToString("￦##.##K")
                txtWeekMin6.Text = CDec(Min6.ToString("C")).ToString("￦##.##K")
                txtWeekMax7.Text = CDec(Max7.ToString("C")).ToString("￦##.##K")
                txtWeekMin7.Text = CDec(Min7.ToString("C")).ToString("￦##.##K")
                txtWeekMax8.Text = CDec(Max8.ToString("C")).ToString("￦##.##K")
                txtWeekMin8.Text = CDec(Min8.ToString("C")).ToString("￦##.##K")
                txtWeekMax9.Text = CDec(Max9.ToString("C")).ToString("￦##.##K")
                txtWeekMin9.Text = CDec(Min9.ToString("C")).ToString("￦##.##K")
                txtWeekMax10.Text = CDec(Max10.ToString("C")).ToString("￦##.##K")
                txtWeekMin10.Text = CDec(Min10.ToString("C")).ToString("￦##.##K")
                txtWeekMax11.Text = CDec(Max11.ToString("C")).ToString("￦##.##K")
                txtWeekMin11.Text = CDec(Min11.ToString("C")).ToString("￦##.##K")
                txtWeekMax12.Text = CDec(Max12.ToString("C")).ToString("￦##.##K")
                txtWeekMin12.Text = CDec(Min12.ToString("C")).ToString("￦##.##K")
                txtWeekMax13.Text = CDec(Max13.ToString("C")).ToString("￦##.##K")
                txtWeekMin13.Text = CDec(Min13.ToString("C")).ToString("￦##.##K")
                txtWeekMax14.Text = CDec(Max14.ToString("C")).ToString("￦##.##K")
                txtWeekMin14.Text = CDec(Min14.ToString("C")).ToString("￦##.##K")
                txtWeekMax15.Text = CDec(Max15.ToString("C")).ToString("￦##.##K")
                txtWeekMin15.Text = CDec(Min15.ToString("C")).ToString("￦##.##K")
                txtWeekMax16.Text = CDec(Max16.ToString("C")).ToString("￦##.##K")
                txtWeekMin16.Text = CDec(Min16.ToString("C")).ToString("￦##.##K")
                txtWeekMax17.Text = CDec(Max17.ToString("C")).ToString("￦##.##K")
                txtWeekMin17.Text = CDec(Min17.ToString("C")).ToString("￦##.##K")
                txtWeekMax18.Text = CDec(Max18.ToString("C")).ToString("￦##.##K")
                txtWeekMin18.Text = CDec(Min18.ToString("C")).ToString("￦##.##K")
                txtWeekMax19.Text = CDec(Max19.ToString("C")).ToString("￦##.##K")
                txtWeekMin19.Text = CDec(Min19.ToString("C")).ToString("￦##.##K")
                txtWeekMax20.Text = CDec(Max20.ToString("C")).ToString("￦##.##K")
                txtWeekMin20.Text = CDec(Min20.ToString("C")).ToString("￦##.##K")

            End If

            TimerCount = 0 'Set TimerCount value 0
        End If
    End Sub

    'LOOK AT HERE!!!!! HERE IS THE PART FOR Deciding Prices!! Calculate stock prices randomly
    Private Function ChangePrice_Tiny(ByRef intSize As Double) As Decimal
        'CDbl(CDbl((rand.Next(10) + 71) - CDbl(Rnd())).ToString("n2"))
        'About the function one line above, Amplitude of Change depends on the number inside Next()
        Return CDec(CDec((rand.Next(10) + 91) * 0.9 - CDec(Rnd() * 4)))
    End Function

    Private Function ChangePrice_Small(ByRef intSize As Double) As Decimal
        Return CDec(CDec((rand.Next(36) + 401) * 1.3 - CDec(Rnd() * 5)))
    End Function

    Private Function ChangePrice_Medium(ByRef intSize As Double) As Decimal
        Return CDec(CDec((rand.Next(54) + 590) * 1.6 - CDec(Rnd() * 6)))
    End Function

    Private Function ChangePrice_Large(ByRef intSize As Double) As Decimal
        Return CDec(CDec((rand.Next(126) + 1401) * 1.7 - CDec(Rnd() * 7)))
    End Function

    Private Function ChangePrice_Huge(ByRef intSize As Double) As Decimal
        Return CDec(CDec((rand.Next(181) + 1999) * 1.9 - CDec(Rnd() * 8)))
    End Function

    'After buying actions, update lblMoney which shows mywallet value.
    Sub BuylblMoneyUpdate()
        If lang = "ENG" Then
            lblMoney.Text = CStr(MyWallet.ToString("C"))
        ElseIf lang = "KOR" Then
            lblMoney.Text = CDec(MyWallet.ToString("C")).ToString("￦##,##.##K")
        End If
    End Sub

    'MandA1~20 Messages in different languages for the Msgbox
    Sub MandAMessageLang()
        If lang = "ENG" Then
            MandAMessage = "Would you like to acquire this company? (You may not be able to change answer.)"
            MandAMessageTitle = "Stock War - M&A Confirmation"
        ElseIf lang = "KOR" Then
            MandAMessage = "해당 기업을 인수 및 합병 하시겠습니까? (답변을 바꾸지 못할 수 있습니다.)"
            MandAMessageTitle = "주식 전쟁 - 인수합병 확인"
        End If
    End Sub

    Sub MoneyNotEnough()
        If lang = "ENG" Then
            MsgBox("Money Not Enough", vbCritical, "Stock War Notification")
        ElseIf lang = "KOR" Then
            MsgBox("돈이 부족합니다.", vbCritical, "주식 전쟁 알림")
        End If
    End Sub

    Sub WalletUpdate()
        If lang = "ENG" Then
            lblMoney.Text = CStr(MyWallet.ToString("C"))
        ElseIf lang = "KOR" Then
            lblMoney.Text = CStr(MyWallet.ToString("￦##,##.##K"))
        End If
    End Sub

    Sub HoldingShareNotEnough()
        If lang = "ENG" Then
            MsgBox("Holding Share Not Enough", vbCritical, "Stock War Notification")
        ElseIf lang = "KOR" Then
            MsgBox("보유 주식 수가 부족합니다.", vbCritical, "주식 전쟁 알림")
        End If
    End Sub

    Sub MandA1()
        If Holding1 >= 299985 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy1.BackColor = SystemColors.Control
                btnSell1.BackColor = SystemColors.Control
                btnBuy1.Enabled = False
                btnSell1.Enabled = False
                txtBuyPrice1.Enabled = False
                txtSellPrice1.Enabled = False
                txtHolding1.Enabled = False
                txtQuota1.Enabled = False
                NumericUpDown1.Enabled = False
                NumericUpDown1.Value = 1
                txtHolding1.TextAlign = HorizontalAlignment.Center
                txtQuota1.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding1.Text = "M&A"
                    txtQuota1.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding1.Text = "인수합병"
                    txtQuota1.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy1_Click(sender As Object, e As EventArgs) Handles btnBuy1.Click
        If MyWallet >= BuyPrice1 * NumericUpDown1.Value Or MyWallet >= BuyPrice1U * NumericUpDown1.Value Then
            If ChangeSwitch = False Then
                'Substract the value of price from Mywallet
                MyWallet = MyWallet - (BuyPrice1 * NumericUpDown1.Value)
            Else
                MyWallet = MyWallet - (BuyPrice1U * NumericUpDown1.Value)
            End If
            'Display undated updated mywallet in the textbox
            BuylblMoneyUpdate()

            'Increase Property as much as buying
            Holding1 += CInt(NumericUpDown1.Value)
            'Display updated property in the textbox
            txtHolding1.Text = CStr((Holding1).ToString("#,#"))
            'Increase Quota
            'in the function just below, 100000 of '(Quota1 + Property1) / 100000)' is the total quota of Company1
            Quota1 = CDec(Holding1 / 300000)
            txtQuota1.Text = CStr((Quota1).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA1()
    End Sub

    Private Sub btnSell1_Click(sender As Object, e As EventArgs) Handles btnSell1.Click
        If Holding1 >= NumericUpDown1.Value Then
            'Add money to mywallet
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice1 * NumericUpDown1.Value)
            Else
                MyWallet = MyWallet + (SellPrice1U * NumericUpDown1.Value)
            End If
            'Display undated updated mywallet in the textbox
            WalletUpdate()

            'Decrease Property as much as buying
            Holding1 -= CInt(NumericUpDown1.Value)
            'Display updated property in the textbox
            If Holding1 = 0 Then 'Display 0 instead of empty place
                txtHolding1.Text = "0"
            Else
                txtHolding1.Text = CStr((Holding1).ToString("#,#"))
            End If
            'Decrease Quota
            Quota1 = CDec(Holding1 / 300000)
            txtQuota1.Text = CStr((Quota1).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA1()
    End Sub

    Sub MandA2()
        If Holding2 > 229988 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy2.BackColor = SystemColors.Control
                btnSell2.BackColor = SystemColors.Control
                btnBuy2.Enabled = False
                btnSell2.Enabled = False
                txtBuyPrice2.Enabled = False
                txtSellPrice2.Enabled = False
                txtHolding2.Enabled = False
                txtQuota2.Enabled = False
                NumericUpDown2.Enabled = False
                NumericUpDown2.Value = 1
                txtHolding2.TextAlign = HorizontalAlignment.Center
                txtQuota2.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding2.Text = "M&A"
                    txtQuota2.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding2.Text = "인수합병"
                    txtQuota2.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy2_Click(sender As Object, e As EventArgs) Handles btnBuy2.Click
        If MyWallet >= BuyPrice2 * CInt(NumericUpDown2.Value) Or MyWallet >= BuyPrice2U * CInt(NumericUpDown2.Value) Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice2 * NumericUpDown2.Value)
            Else
                MyWallet = MyWallet - (BuyPrice2U * NumericUpDown2.Value)
            End If
            BuylblMoneyUpdate()
            Holding2 += CInt(NumericUpDown2.Value)
            txtHolding2.Text = CStr((Holding2).ToString("#,#"))
            Quota2 = CDec(Holding2 / 230000) 'the value that 230000 - the number(that becomes 0.01% Quota) = .. as a result, Sub MandA2 must have 229988
            txtQuota2.Text = CStr((Quota2).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA2()
    End Sub

    Private Sub btnSell2_Click(sender As Object, e As EventArgs) Handles btnSell2.Click
        If Holding2 >= NumericUpDown2.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice2 * NumericUpDown2.Value)
            Else
                MyWallet = MyWallet + (SellPrice2U * NumericUpDown2.Value)
            End If
            WalletUpdate()
            Holding2 -= CInt(NumericUpDown2.Value)
            If Holding2 = 0 Then 'Display 0 instead of empty place
                txtHolding2.Text = "0"
            Else
                txtHolding2.Text = CStr((Holding2).ToString("#,#"))
            End If
            Quota2 = CDec(Holding2 / 230000)
            txtQuota2.Text = CStr((Quota2).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA2()
    End Sub

    Sub MandA3()
        If Holding3 >= 179991 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy3.BackColor = SystemColors.Control
                btnSell3.BackColor = SystemColors.Control
                btnBuy3.Enabled = False
                btnSell3.Enabled = False
                txtBuyPrice3.Enabled = False
                txtSellPrice3.Enabled = False
                txtHolding3.Enabled = False
                txtQuota3.Enabled = False
                NumericUpDown3.Enabled = False
                NumericUpDown3.Value = 1
                txtHolding3.TextAlign = HorizontalAlignment.Center
                txtQuota3.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding3.Text = "M&A"
                    txtQuota3.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding3.Text = "인수합병"
                    txtQuota3.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy3_Click(sender As Object, e As EventArgs) Handles btnBuy3.Click
        If MyWallet >= BuyPrice3 * NumericUpDown3.Value Or MyWallet >= BuyPrice3U * NumericUpDown3.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice3 * NumericUpDown3.Value)
            Else
                MyWallet = MyWallet - (BuyPrice3U * NumericUpDown3.Value)
            End If
            BuylblMoneyUpdate()
            Holding3 += CInt(NumericUpDown3.Value)
            txtHolding3.Text = CStr((Holding3).ToString("#,#"))
            Quota3 = CDec(Holding3 / 180000)
            txtQuota3.Text = CStr((Quota3).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA3()
    End Sub

    Private Sub btnSell3_Click(sender As Object, e As EventArgs) Handles btnSell3.Click
        If Holding3 >= NumericUpDown3.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice3 * NumericUpDown3.Value)
            Else
                MyWallet = MyWallet + (SellPrice3U * NumericUpDown3.Value)
            End If
            WalletUpdate()
            Holding3 -= CInt(NumericUpDown3.Value)
            If Holding3 = 0 Then 'Display 0 instead of empty place
                txtHolding3.Text = "0"
            Else
                txtHolding3.Text = CStr((Holding3).ToString("#,#"))
            End If
            Quota3 = CDec(Holding3 / 180000)
            txtQuota3.Text = CStr((Quota3).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA3()
    End Sub

    Sub MandA4()
        If Holding4 >= 179991 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy4.BackColor = SystemColors.Control
                btnSell4.BackColor = SystemColors.Control
                btnBuy4.Enabled = False
                btnSell4.Enabled = False
                txtBuyPrice4.Enabled = False
                txtSellPrice4.Enabled = False
                txtHolding4.Enabled = False
                txtQuota4.Enabled = False
                NumericUpDown4.Enabled = False
                NumericUpDown4.Value = 1
                txtHolding4.TextAlign = HorizontalAlignment.Center
                txtQuota4.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding4.Text = "M&A"
                    txtQuota4.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding4.Text = "인수합병"
                    txtQuota4.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy4_Click(sender As Object, e As EventArgs) Handles btnBuy4.Click
        If MyWallet >= BuyPrice4 * NumericUpDown4.Value Or MyWallet >= BuyPrice4U * NumericUpDown4.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice4 * NumericUpDown4.Value)
            Else
                MyWallet = MyWallet - (BuyPrice4U * NumericUpDown4.Value)
            End If
            BuylblMoneyUpdate()
            Holding4 += CInt(NumericUpDown4.Value)
            txtHolding4.Text = CStr((Holding4).ToString("#,#"))
            Quota4 = CDec(Holding4 / 180000)
            txtQuota4.Text = CStr((Quota4).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA4()
    End Sub

    Private Sub btnSell4_Click(sender As Object, e As EventArgs) Handles btnSell4.Click
        If Holding4 >= NumericUpDown4.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice4 * NumericUpDown4.Value)
            Else
                MyWallet = MyWallet + (SellPrice4U * NumericUpDown4.Value)
            End If
            WalletUpdate()
            Holding4 -= CInt(NumericUpDown4.Value)
            If Holding4 = 0 Then 'Display 0 instead of empty place
                txtHolding4.Text = "0"
            Else
                txtHolding4.Text = CStr((Holding4).ToString("#,#"))
            End If
            Quota4 = CDec(Holding4 / 180000)
            txtQuota4.Text = CStr((Quota4).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA4()
    End Sub

    Sub MandA5()
        If Holding5 > 259987 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy5.BackColor = SystemColors.Control
                btnSell5.BackColor = SystemColors.Control
                btnBuy5.Enabled = False
                btnSell5.Enabled = False
                txtBuyPrice5.Enabled = False
                txtSellPrice5.Enabled = False
                txtHolding5.Enabled = False
                txtQuota5.Enabled = False
                NumericUpDown5.Enabled = False
                NumericUpDown5.Value = 1
                txtHolding5.TextAlign = HorizontalAlignment.Center
                txtQuota5.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding5.Text = "M&A"
                    txtQuota5.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding5.Text = "인수합병"
                    txtQuota5.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy5_Click(sender As Object, e As EventArgs) Handles btnBuy5.Click
        If MyWallet >= BuyPrice5 * NumericUpDown5.Value Or MyWallet >= BuyPrice5U * NumericUpDown5.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice5 * NumericUpDown5.Value)
            Else
                MyWallet = MyWallet - (BuyPrice5U * NumericUpDown5.Value)
            End If
            BuylblMoneyUpdate()
            Holding5 += CInt(NumericUpDown5.Value)
            txtHolding5.Text = CStr((Holding5).ToString("#,#"))
            Quota5 = CDec(Holding5 / 260000)
            txtQuota5.Text = CStr((Quota5).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA5()
    End Sub

    Private Sub btnSell5_Click(sender As Object, e As EventArgs) Handles btnSell5.Click
        If Holding5 >= NumericUpDown5.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice5 * NumericUpDown5.Value)
            Else
                MyWallet = MyWallet + (SellPrice5U * NumericUpDown5.Value)
            End If
            WalletUpdate()
            Holding5 -= CInt(NumericUpDown5.Value)
            If Holding5 = 0 Then 'Display 0 instead of empty place
                txtHolding5.Text = "0"
            Else
                txtHolding5.Text = CStr((Holding5).ToString("#,#"))
            End If
            Quota5 = CDec(Holding5 / 260000)
            txtQuota5.Text = CStr((Quota5).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA5()
    End Sub

    Sub MandA6()
        If Holding6 > 99994 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy6.BackColor = SystemColors.Control
                btnSell6.BackColor = SystemColors.Control
                btnBuy6.Enabled = False
                btnSell6.Enabled = False
                txtBuyPrice6.Enabled = False
                txtSellPrice6.Enabled = False
                txtHolding6.Enabled = False
                txtQuota6.Enabled = False
                NumericUpDown6.Enabled = False
                NumericUpDown6.Value = 1
                txtHolding6.TextAlign = HorizontalAlignment.Center
                txtQuota6.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding6.Text = "M&A"
                    txtQuota6.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding6.Text = "인수합병"
                    txtQuota6.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy6_Click(sender As Object, e As EventArgs) Handles btnBuy6.Click
        If MyWallet >= BuyPrice6 * NumericUpDown6.Value Or MyWallet >= BuyPrice6U * NumericUpDown6.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice6 * NumericUpDown6.Value)
            Else
                MyWallet = MyWallet - (BuyPrice6U * NumericUpDown6.Value)
            End If
            BuylblMoneyUpdate()
            Holding6 += CInt(NumericUpDown6.Value)
            txtHolding6.Text = CStr((Holding6).ToString("#,#"))
            Quota6 = CDec(Holding6 / 100000)
            txtQuota6.Text = CStr((Quota6).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA6()
    End Sub

    Private Sub btnSell6_Click(sender As Object, e As EventArgs) Handles btnSell6.Click
        If Holding6 >= NumericUpDown6.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice6 * NumericUpDown6.Value)
            Else
                MyWallet = MyWallet + (SellPrice6U * NumericUpDown6.Value)
            End If
            WalletUpdate()
            Holding6 -= CInt(NumericUpDown6.Value)
            If Holding6 = 0 Then 'Display 0 instead of empty place
                txtHolding6.Text = "0"
            Else
                txtHolding6.Text = CStr((Holding6).ToString("#,#"))
            End If
            Quota6 = CDec(Holding6 / 100000)
            txtQuota6.Text = CStr((Quota6).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA6()
    End Sub

    Sub MandA7()
        If Holding7 >= 229988 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy7.BackColor = SystemColors.Control
                btnSell7.BackColor = SystemColors.Control
                btnBuy7.Enabled = False
                btnSell7.Enabled = False
                txtBuyPrice7.Enabled = False
                txtSellPrice7.Enabled = False
                txtHolding7.Enabled = False
                txtQuota7.Enabled = False
                NumericUpDown7.Enabled = False
                NumericUpDown7.Value = 1
                txtHolding7.TextAlign = HorizontalAlignment.Center
                txtQuota7.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding7.Text = "M&A"
                    txtQuota7.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding7.Text = "인수합병"
                    txtQuota7.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy7_Click(sender As Object, e As EventArgs) Handles btnBuy7.Click
        If MyWallet >= BuyPrice7 * NumericUpDown7.Value Or MyWallet >= BuyPrice7U * NumericUpDown7.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice7 * NumericUpDown7.Value)
            Else
                MyWallet = MyWallet - (BuyPrice7U * NumericUpDown7.Value)
            End If
            BuylblMoneyUpdate()
            Holding7 += CInt(NumericUpDown7.Value)
            txtHolding7.Text = CStr((Holding7).ToString("#,#"))
            Quota7 = CDec(Holding7 / 230000)
            txtQuota7.Text = CStr((Quota7).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA7()
    End Sub

    Private Sub btnSell7_Click(sender As Object, e As EventArgs) Handles btnSell7.Click
        If Holding7 >= NumericUpDown7.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice7 * NumericUpDown7.Value)
            Else
                MyWallet = MyWallet + (SellPrice7U * NumericUpDown7.Value)
            End If
            WalletUpdate()
            Holding7 -= CInt(NumericUpDown7.Value)
            If Holding7 = 0 Then 'Display 0 instead of empty place
                txtHolding7.Text = "0"
            Else
                txtHolding7.Text = CStr((Holding7).ToString("#,#"))
            End If
            Quota7 = CDec(Holding7 / 230000)
            txtQuota7.Text = CStr((Quota7).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA7()
    End Sub

    Sub MandA8()
        If Holding8 >= 299985 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy8.BackColor = SystemColors.Control
                btnSell8.BackColor = SystemColors.Control
                btnBuy8.Enabled = False
                btnSell8.Enabled = False
                txtBuyPrice8.Enabled = False
                txtSellPrice8.Enabled = False
                txtHolding8.Enabled = False
                txtQuota8.Enabled = False
                NumericUpDown8.Enabled = False
                NumericUpDown8.Value = 1
                txtHolding8.TextAlign = HorizontalAlignment.Center
                txtQuota8.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding8.Text = "M&A"
                    txtQuota8.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding8.Text = "인수합병"
                    txtQuota8.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy8_Click(sender As Object, e As EventArgs) Handles btnBuy8.Click
        If MyWallet >= BuyPrice8 * NumericUpDown8.Value Or MyWallet >= BuyPrice8U * NumericUpDown8.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice8 * NumericUpDown8.Value)
            Else
                MyWallet = MyWallet - (BuyPrice8U * NumericUpDown8.Value)
            End If
            BuylblMoneyUpdate()
            Holding8 += CInt(NumericUpDown8.Value)
            txtHolding8.Text = CStr((Holding8).ToString("#,#"))
            Quota8 = CDec(Holding8 / 300000)
            txtQuota8.Text = CStr((Quota8).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA8()
    End Sub

    Private Sub btnSell8_Click(sender As Object, e As EventArgs) Handles btnSell8.Click
        If Holding8 >= NumericUpDown8.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice8 * NumericUpDown8.Value)
            Else
                MyWallet = MyWallet + (SellPrice8U * NumericUpDown8.Value)
            End If
            WalletUpdate()
            Holding8 -= CInt(NumericUpDown8.Value)
            If Holding8 = 0 Then 'Display 0 instead of empty place
                txtHolding8.Text = "0"
            Else
                txtHolding8.Text = CStr((Holding8).ToString("#,#"))
            End If
            Quota8 = CDec(Holding8 / 300000)
            txtQuota8.Text = CStr((Quota8).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA8()
    End Sub

    Sub MandA9()
        If Holding9 >= 229988 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy9.BackColor = SystemColors.Control
                btnSell9.BackColor = SystemColors.Control
                btnBuy9.Enabled = False
                btnSell9.Enabled = False
                txtBuyPrice9.Enabled = False
                txtSellPrice9.Enabled = False
                txtHolding9.Enabled = False
                txtQuota9.Enabled = False
                NumericUpDown9.Enabled = False
                NumericUpDown9.Value = 1
                txtHolding9.TextAlign = HorizontalAlignment.Center
                txtQuota9.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding9.Text = "M&A"
                    txtQuota9.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding9.Text = "인수합병"
                    txtQuota9.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy9_Click(sender As Object, e As EventArgs) Handles btnBuy9.Click
        If MyWallet >= BuyPrice9 * NumericUpDown9.Value Or MyWallet >= BuyPrice9U * NumericUpDown9.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice9 * NumericUpDown9.Value)
            Else
                MyWallet = MyWallet - (BuyPrice9U * NumericUpDown9.Value)
            End If
            BuylblMoneyUpdate()
            Holding9 += CInt(NumericUpDown9.Value)
            txtHolding9.Text = CStr((Holding9).ToString("#,#"))
            Quota9 = CDec(Holding9 / 230000)
            txtQuota9.Text = CStr((Quota9).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA9()
    End Sub

    Private Sub btnSell9_Click(sender As Object, e As EventArgs) Handles btnSell9.Click
        If Holding9 >= NumericUpDown9.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice9 * NumericUpDown9.Value)
            Else
                MyWallet = MyWallet + (SellPrice9U * NumericUpDown9.Value)
            End If
            WalletUpdate()
            Holding9 -= CInt(NumericUpDown9.Value)
            If Holding9 = 0 Then 'Display 0 instead of empty place
                txtHolding9.Text = "0"
            Else
                txtHolding9.Text = CStr((Holding9).ToString("#,#"))
            End If
            Quota9 = CDec(Holding9 / 230000)
            txtQuota9.Text = CStr((Quota9).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA9()
    End Sub

    Sub MandA10()
        If Holding10 >= 299985 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy10.BackColor = SystemColors.Control
                btnSell10.BackColor = SystemColors.Control
                btnBuy10.Enabled = False
                btnSell10.Enabled = False
                txtBuyPrice10.Enabled = False
                txtSellPrice10.Enabled = False
                txtHolding10.Enabled = False
                txtQuota10.Enabled = False
                NumericUpDown10.Enabled = False
                NumericUpDown10.Value = 1
                txtHolding10.TextAlign = HorizontalAlignment.Center
                txtQuota10.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding10.Text = "M&A"
                    txtQuota10.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding10.Text = "인수합병"
                    txtQuota10.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy10_Click(sender As Object, e As EventArgs) Handles btnBuy10.Click
        If MyWallet >= BuyPrice10 * NumericUpDown10.Value Or MyWallet >= BuyPrice10U * NumericUpDown10.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice10 * NumericUpDown10.Value)
            Else
                MyWallet = MyWallet - (BuyPrice10U * NumericUpDown10.Value)
            End If
            BuylblMoneyUpdate()
            Holding10 += CInt(NumericUpDown10.Value)
            txtHolding10.Text = CStr((Holding10).ToString("#,#"))
            Quota10 = CDec(Holding10 / 300000)
            txtQuota10.Text = CStr((Quota10).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA10()
    End Sub

    Private Sub btnSell10_Click(sender As Object, e As EventArgs) Handles btnSell10.Click
        If Holding10 >= NumericUpDown10.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice10 * NumericUpDown10.Value)
            Else
                MyWallet = MyWallet + (SellPrice10U * NumericUpDown10.Value)
            End If
            WalletUpdate()
            Holding10 -= CInt(NumericUpDown10.Value)
            If Holding10 = 0 Then 'Display 0 instead of empty place
                txtHolding10.Text = "0"
            Else
                txtHolding10.Text = CStr((Holding10).ToString("#,#"))
            End If
            Quota10 = CDec(Holding10 / 300000)
            txtQuota10.Text = CStr((Quota10).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA10()
    End Sub

    Sub MandA11()
        If Holding11 > 99994 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy11.BackColor = SystemColors.Control
                btnSell11.BackColor = SystemColors.Control
                btnBuy11.Enabled = False
                btnSell11.Enabled = False
                txtBuyPrice11.Enabled = False
                txtSellPrice11.Enabled = False
                txtHolding11.Enabled = False
                txtQuota11.Enabled = False
                NumericUpDown11.Enabled = False
                NumericUpDown11.Value = 1
                txtHolding11.TextAlign = HorizontalAlignment.Center
                txtQuota11.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding11.Text = "M&A"
                    txtQuota11.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding11.Text = "인수합병"
                    txtQuota11.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy11_Click(sender As Object, e As EventArgs) Handles btnBuy11.Click
        If MyWallet >= BuyPrice11 * NumericUpDown11.Value Or MyWallet >= BuyPrice11U * NumericUpDown11.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice11 * NumericUpDown11.Value)
            Else
                MyWallet = MyWallet - (BuyPrice11U * NumericUpDown11.Value)
            End If
            BuylblMoneyUpdate()
            Holding11 += CInt(NumericUpDown11.Value)
            txtHolding11.Text = CStr((Holding11).ToString("#,#"))
            Quota11 = CDec(Holding11 / 100000)
            txtQuota11.Text = CStr((Quota11).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA11()
    End Sub

    Private Sub btnSell11_Click(sender As Object, e As EventArgs) Handles btnSell11.Click
        If Holding11 >= NumericUpDown11.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice11 * NumericUpDown11.Value)
            Else
                MyWallet = MyWallet + (SellPrice11U * NumericUpDown11.Value)
            End If
            WalletUpdate()
            Holding11 -= CInt(NumericUpDown11.Value)
            If Holding11 = 0 Then 'Display 0 instead of empty place
                txtHolding11.Text = "0"
            Else
                txtHolding11.Text = CStr((Holding11).ToString("#,#"))
            End If
            Quota11 = CDec(Holding11 / 100000)
            txtQuota11.Text = CStr((Quota11).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA11()
    End Sub

    Sub MandA12()
        If Holding12 > 259987 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy12.BackColor = SystemColors.Control
                btnSell12.BackColor = SystemColors.Control
                btnBuy12.Enabled = False
                btnSell12.Enabled = False
                txtBuyPrice12.Enabled = False
                txtSellPrice12.Enabled = False
                txtHolding12.Enabled = False
                txtQuota12.Enabled = False
                NumericUpDown12.Enabled = False
                NumericUpDown12.Value = 1
                txtHolding12.TextAlign = HorizontalAlignment.Center
                txtQuota12.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding12.Text = "M&A"
                    txtQuota12.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding12.Text = "인수합병"
                    txtQuota12.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy12_Click(sender As Object, e As EventArgs) Handles btnBuy12.Click
        If MyWallet >= BuyPrice12 * NumericUpDown12.Value Or MyWallet >= BuyPrice12U * NumericUpDown12.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice12 * NumericUpDown12.Value)
            Else
                MyWallet = MyWallet - (BuyPrice12U * NumericUpDown12.Value)
            End If
            BuylblMoneyUpdate()
            Holding12 += CInt(NumericUpDown12.Value)
            txtHolding12.Text = CStr((Holding12).ToString("#,#"))
            Quota12 = CDec(Holding12 / 260000)
            txtQuota12.Text = CStr((Quota12).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA12()
    End Sub

    Private Sub btnSell12_Click(sender As Object, e As EventArgs) Handles btnSell12.Click
        If Holding12 >= NumericUpDown12.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice12 * NumericUpDown12.Value)
            Else
                MyWallet = MyWallet + (SellPrice12U * NumericUpDown12.Value)
            End If
            WalletUpdate()
            Holding12 -= CInt(NumericUpDown12.Value)
            If Holding12 = 0 Then 'Display 0 instead of empty place
                txtHolding12.Text = "0"
            Else
                txtHolding12.Text = CStr((Holding12).ToString("#,#"))
            End If
            Quota12 = CDec(Holding12 / 260000)
            txtQuota12.Text = CStr((Quota12).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA12()
    End Sub

    Sub MandA13()
        If Holding13 >= 299985 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy13.BackColor = SystemColors.Control
                btnSell13.BackColor = SystemColors.Control
                btnBuy13.Enabled = False
                btnSell13.Enabled = False
                txtBuyPrice13.Enabled = False
                txtSellPrice13.Enabled = False
                txtHolding13.Enabled = False
                txtQuota13.Enabled = False
                NumericUpDown13.Enabled = False
                NumericUpDown13.Value = 1
                txtHolding13.TextAlign = HorizontalAlignment.Center
                txtQuota13.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding13.Text = "M&A"
                    txtQuota13.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding13.Text = "인수합병"
                    txtQuota13.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy13_Click(sender As Object, e As EventArgs) Handles btnBuy13.Click
        If MyWallet >= BuyPrice13 * NumericUpDown13.Value Or MyWallet >= BuyPrice13U * NumericUpDown13.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice13 * NumericUpDown13.Value)
            Else
                MyWallet = MyWallet - (BuyPrice13U * NumericUpDown13.Value)
            End If
            lblMoney.Text = CStr(MyWallet.ToString("C"))
            Holding13 += CInt(NumericUpDown13.Value)
            txtHolding13.Text = CStr((Holding13).ToString("#,#"))
            Quota13 = CDec(Holding13 / 300000)
            txtQuota13.Text = CStr((Quota13).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA13()
    End Sub

    Private Sub btnSell13_Click(sender As Object, e As EventArgs) Handles btnSell13.Click
        If Holding13 >= NumericUpDown13.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice13 * NumericUpDown13.Value)
            Else
                MyWallet = MyWallet + (SellPrice13U * NumericUpDown13.Value)
            End If
            BuylblMoneyUpdate()
            WalletUpdate()
            Holding13 -= CInt(NumericUpDown13.Value)
            If Holding13 = 0 Then 'Display 0 instead of empty place
                txtHolding13.Text = "0"
            Else
                txtHolding13.Text = CStr((Holding13).ToString("#,#"))
            End If
            Quota13 = CDec(Holding13 / 300000)
            txtQuota13.Text = CStr((Quota13).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA13()
    End Sub

    Sub MandA14()
        If Holding14 > 259987 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy14.BackColor = SystemColors.Control
                btnSell14.BackColor = SystemColors.Control
                btnBuy14.Enabled = False
                btnSell14.Enabled = False
                txtBuyPrice14.Enabled = False
                txtSellPrice14.Enabled = False
                txtHolding14.Enabled = False
                txtQuota14.Enabled = False
                NumericUpDown14.Enabled = False
                NumericUpDown14.Value = 1
                txtHolding14.TextAlign = HorizontalAlignment.Center
                txtQuota14.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding14.Text = "M&A"
                    txtQuota14.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding14.Text = "인수합병"
                    txtQuota14.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy14_Click(sender As Object, e As EventArgs) Handles btnBuy14.Click
        If MyWallet >= BuyPrice14 * NumericUpDown14.Value Or MyWallet >= BuyPrice14U * NumericUpDown14.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice14 * NumericUpDown14.Value)
            Else
                MyWallet = MyWallet - (BuyPrice14U * NumericUpDown14.Value)
            End If
            BuylblMoneyUpdate()
            Holding14 += CInt(NumericUpDown14.Value)
            txtHolding14.Text = CStr((Holding14).ToString("#,#"))
            Quota14 = CDec(Holding14 / 260000)
            txtQuota14.Text = CStr((Quota14).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA14()
    End Sub

    Private Sub btnSell14_Click(sender As Object, e As EventArgs) Handles btnSell14.Click
        If Holding14 >= NumericUpDown14.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice14 * NumericUpDown14.Value)
            Else
                MyWallet = MyWallet + (SellPrice14U * NumericUpDown14.Value)
            End If
            WalletUpdate()
            Holding14 -= CInt(NumericUpDown14.Value)
            If Holding14 = 0 Then 'Display 0 instead of empty place
                txtHolding14.Text = "0"
            Else
                txtHolding14.Text = CStr((Holding14).ToString("#,#"))
            End If
            Quota14 = CDec(Holding14 / 260000)
            txtQuota14.Text = CStr((Quota14).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA14()
    End Sub

    Sub MandA15()
        If Holding15 > 99994 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy15.BackColor = SystemColors.Control
                btnSell15.BackColor = SystemColors.Control
                btnBuy15.Enabled = False
                btnSell15.Enabled = False
                txtBuyPrice15.Enabled = False
                txtSellPrice15.Enabled = False
                txtHolding15.Enabled = False
                txtQuota15.Enabled = False
                NumericUpDown15.Enabled = False
                NumericUpDown15.Value = 1
                txtHolding15.TextAlign = HorizontalAlignment.Center
                txtQuota15.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding15.Text = "M&A"
                    txtQuota15.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding15.Text = "인수합병"
                    txtQuota15.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy15_Click(sender As Object, e As EventArgs) Handles btnBuy15.Click
        If MyWallet >= BuyPrice15 * NumericUpDown15.Value Or MyWallet >= BuyPrice15U * NumericUpDown15.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice15 * NumericUpDown15.Value)
            Else
                MyWallet = MyWallet - (BuyPrice15U * NumericUpDown15.Value)
            End If
            BuylblMoneyUpdate()
            Holding15 += CInt(NumericUpDown15.Value)
            txtHolding15.Text = CStr((Holding15).ToString("#,#"))
            Quota15 = CDec(Holding15 / 100000)
            txtQuota15.Text = CStr((Quota15).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA15()
    End Sub

    Private Sub btnSell15_Click(sender As Object, e As EventArgs) Handles btnSell15.Click
        If Holding15 >= NumericUpDown15.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice15 * NumericUpDown15.Value)
            Else
                MyWallet = MyWallet + (SellPrice15U * NumericUpDown15.Value)
            End If
            WalletUpdate()
            Holding15 -= CInt(NumericUpDown15.Value)
            If Holding15 = 0 Then 'Display 0 instead of empty place
                txtHolding15.Text = "0"
            Else
                txtHolding15.Text = CStr((Holding15).ToString("#,#"))
            End If
            Quota15 = CDec(Holding15 / 100000)
            txtQuota15.Text = CStr((Quota15).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA15()
    End Sub

    Sub MandA16()
        If Holding16 > 259987 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy16.BackColor = SystemColors.Control
                btnSell16.BackColor = SystemColors.Control
                btnBuy16.Enabled = False
                btnSell16.Enabled = False
                txtBuyPrice16.Enabled = False
                txtSellPrice16.Enabled = False
                txtHolding16.Enabled = False
                txtQuota16.Enabled = False
                NumericUpDown16.Enabled = False
                NumericUpDown16.Value = 1
                txtHolding16.TextAlign = HorizontalAlignment.Center
                txtQuota16.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding16.Text = "M&A"
                    txtQuota16.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding16.Text = "인수합병"
                    txtQuota16.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy16_Click(sender As Object, e As EventArgs) Handles btnBuy16.Click
        If MyWallet >= BuyPrice16 * NumericUpDown16.Value Or MyWallet >= BuyPrice16U * NumericUpDown16.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice16 * NumericUpDown16.Value)
            Else
                MyWallet = MyWallet - (BuyPrice16U * NumericUpDown16.Value)
            End If
            BuylblMoneyUpdate()
            Holding16 += CInt(NumericUpDown16.Value)
            txtHolding16.Text = CStr((Holding16).ToString("#,#"))
            Quota16 = CDec(Holding16 / 260000)
            txtQuota16.Text = CStr((Quota16).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA16()
    End Sub

    Private Sub btnSell16_Click(sender As Object, e As EventArgs) Handles btnSell16.Click
        If Holding16 >= NumericUpDown16.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice16 * NumericUpDown16.Value)
            Else
                MyWallet = MyWallet + (SellPrice16U * NumericUpDown16.Value)
            End If
            WalletUpdate()
            Holding16 -= CInt(NumericUpDown16.Value)
            If Holding16 = 0 Then 'Display 0 instead of empty place
                txtHolding16.Text = "0"
            Else
                txtHolding16.Text = CStr((Holding16).ToString("#,#"))
            End If
            Quota16 = CDec(Holding16 / 260000)
            txtQuota16.Text = CStr((Quota16).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA16()
    End Sub

    Sub MandA17()
        If Holding17 >= 229988 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy17.BackColor = SystemColors.Control
                btnSell17.BackColor = SystemColors.Control
                btnBuy17.Enabled = False
                btnSell17.Enabled = False
                txtBuyPrice17.Enabled = False
                txtSellPrice17.Enabled = False
                txtHolding17.Enabled = False
                txtQuota17.Enabled = False
                NumericUpDown17.Enabled = False
                NumericUpDown17.Value = 1
                txtHolding17.TextAlign = HorizontalAlignment.Center
                txtQuota17.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding17.Text = "M&A"
                    txtQuota17.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding17.Text = "인수합병"
                    txtQuota17.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy17_Click(sender As Object, e As EventArgs) Handles btnBuy17.Click
        If MyWallet >= BuyPrice17 * NumericUpDown17.Value Or MyWallet >= BuyPrice17U * NumericUpDown17.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice17 * NumericUpDown17.Value)
            Else
                MyWallet = MyWallet - (BuyPrice17U * NumericUpDown17.Value)
            End If
            BuylblMoneyUpdate()
            Holding17 += CInt(NumericUpDown17.Value)
            txtHolding17.Text = CStr((Holding17).ToString("#,#"))
            Quota17 = CDec(Holding17 / 230000)
            txtQuota17.Text = CStr((Quota17).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA17()
    End Sub

    Private Sub btnSell17_Click(sender As Object, e As EventArgs) Handles btnSell17.Click
        If Holding17 >= NumericUpDown17.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice17 * NumericUpDown17.Value)
            Else
                MyWallet = MyWallet + (SellPrice17U * NumericUpDown17.Value)
            End If
            WalletUpdate()
            Holding17 -= CInt(NumericUpDown17.Value)
            If Holding17 = 0 Then 'Display 0 instead of empty place
                txtHolding17.Text = "0"
            Else
                txtHolding17.Text = CStr((Holding17).ToString("#,#"))
            End If
            Quota17 = CDec(Holding17 / 230000)
            txtQuota17.Text = CStr((Quota17).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA17()
    End Sub

    Sub MandA18()
        If Holding18 > 259987 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy18.BackColor = SystemColors.Control
                btnSell18.BackColor = SystemColors.Control
                btnBuy18.Enabled = False
                btnSell18.Enabled = False
                txtBuyPrice18.Enabled = False
                txtSellPrice18.Enabled = False
                txtHolding18.Enabled = False
                txtQuota18.Enabled = False
                NumericUpDown18.Enabled = False
                NumericUpDown18.Value = 1
                txtHolding18.TextAlign = HorizontalAlignment.Center
                txtQuota18.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding18.Text = "M&A"
                    txtQuota18.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding18.Text = "인수합병"
                    txtQuota18.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy18_Click(sender As Object, e As EventArgs) Handles btnBuy18.Click
        If MyWallet >= BuyPrice18 * NumericUpDown18.Value Or MyWallet >= BuyPrice18U * NumericUpDown18.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice18 * NumericUpDown18.Value)
            Else
                MyWallet = MyWallet - (BuyPrice18U * NumericUpDown18.Value)
            End If
            BuylblMoneyUpdate()
            Holding18 += CInt(NumericUpDown18.Value)
            txtHolding18.Text = CStr((Holding18).ToString("#,#"))
            Quota18 = CDec(Holding18 / 260000)
            txtQuota18.Text = CStr((Quota18).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA18()
    End Sub

    Private Sub btnSell18_Click(sender As Object, e As EventArgs) Handles btnSell18.Click
        If Holding18 >= NumericUpDown18.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice18 * NumericUpDown18.Value)
            Else
                MyWallet = MyWallet + (SellPrice18U * NumericUpDown18.Value)
            End If
            WalletUpdate()
            Holding18 -= CInt(NumericUpDown18.Value)
            If Holding18 = 0 Then 'Display 0 instead of empty place
                txtHolding18.Text = "0"
            Else
                txtHolding18.Text = CStr((Holding18).ToString("#,#"))
            End If
            Quota18 = CDec(Holding18 / 260000)
            txtQuota18.Text = CStr((Quota18).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA18()
    End Sub

    Sub MandA19()
        If Holding19 >= 179991 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy19.BackColor = SystemColors.Control
                btnSell19.BackColor = SystemColors.Control
                btnBuy19.Enabled = False
                btnSell19.Enabled = False
                txtBuyPrice19.Enabled = False
                txtSellPrice19.Enabled = False
                txtHolding19.Enabled = False
                txtQuota19.Enabled = False
                NumericUpDown19.Enabled = False
                NumericUpDown19.Value = 1
                txtHolding19.TextAlign = HorizontalAlignment.Center
                txtQuota19.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding19.Text = "M&A"
                    txtQuota19.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding19.Text = "인수합병"
                    txtQuota19.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy19_Click(sender As Object, e As EventArgs) Handles btnBuy19.Click
        If MyWallet >= BuyPrice19 * NumericUpDown19.Value Or MyWallet >= BuyPrice19U * NumericUpDown19.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice19 * NumericUpDown19.Value)
            Else
                MyWallet = MyWallet - (BuyPrice19U * NumericUpDown19.Value)
            End If
            BuylblMoneyUpdate()
            Holding19 += CInt(NumericUpDown19.Value)
            txtHolding19.Text = CStr((Holding19).ToString("#,#"))
            Quota19 = CDec(Holding19 / 180000)
            txtQuota19.Text = CStr((Quota19).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA19()
    End Sub

    Private Sub btnSell19_Click(sender As Object, e As EventArgs) Handles btnSell19.Click
        If Holding19 >= NumericUpDown19.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice19 * NumericUpDown19.Value)
            Else
                MyWallet = MyWallet + (SellPrice19U * NumericUpDown19.Value)
            End If
            WalletUpdate()
            Holding19 -= CInt(NumericUpDown19.Value)
            If Holding19 = 0 Then 'Display 0 instead of empty place
                txtHolding19.Text = "0"
            Else
                txtHolding19.Text = CStr((Holding19).ToString("#,#"))
            End If
            Quota19 = CDec(Holding19 / 180000)
            txtQuota19.Text = CStr((Quota19).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA19()
    End Sub

    Sub MandA20()
        If Holding20 >= 229988 Then
            MandAMessageLang()
            If MsgBox(MandAMessage, vbYesNo, MandAMessageTitle) = MsgBoxResult.Yes Then
                btnBuy20.BackColor = SystemColors.Control
                btnSell20.BackColor = SystemColors.Control
                btnBuy20.Enabled = False
                btnSell20.Enabled = False
                txtBuyPrice20.Enabled = False
                txtSellPrice20.Enabled = False
                txtHolding20.Enabled = False
                txtQuota20.Enabled = False
                NumericUpDown20.Enabled = False
                NumericUpDown20.Value = 1
                txtHolding20.TextAlign = HorizontalAlignment.Center
                txtQuota20.TextAlign = HorizontalAlignment.Center
                If lang = "ENG" Then
                    txtHolding20.Text = "M&A"
                    txtQuota20.Text = "M&A"
                ElseIf lang = "KOR" Then
                    txtHolding20.Text = "인수합병"
                    txtQuota20.Text = "인수합병"
                End If
            End If
        End If
    End Sub

    Private Sub btnBuy20_Click(sender As Object, e As EventArgs) Handles btnBuy20.Click
        If MyWallet >= BuyPrice20 * NumericUpDown20.Value Or MyWallet >= BuyPrice20U * NumericUpDown20.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet - (BuyPrice20 * NumericUpDown20.Value)
            Else
                MyWallet = MyWallet - (BuyPrice20U * NumericUpDown20.Value)
            End If
            BuylblMoneyUpdate()
            Holding20 += CInt(NumericUpDown20.Value)
            txtHolding20.Text = CStr((Holding20).ToString("#,#"))
            Quota20 = CDec(Holding20 / 230000)
            txtQuota20.Text = CStr((Quota20).ToString("p"))
        Else
            MoneyNotEnough()
        End If
        MandA20()
    End Sub

    Private Sub btnSell20_Click(sender As Object, e As EventArgs) Handles btnSell20.Click
        If Holding20 >= NumericUpDown20.Value Then
            If ChangeSwitch = False Then
                MyWallet = MyWallet + (SellPrice20 * NumericUpDown20.Value)
            Else
                MyWallet = MyWallet + (SellPrice20U * NumericUpDown20.Value)
            End If
            WalletUpdate()
            Holding20 -= CInt(NumericUpDown20.Value)
            If Holding20 = 0 Then 'Display 0 instead of empty place
                txtHolding20.Text = "0"
            Else
                txtHolding20.Text = CStr((Holding20).ToString("#,#"))
            End If
            Quota20 = CDec(Holding20 / 230000)
            txtQuota20.Text = CStr((Quota20).ToString("p"))
        Else
            HoldingShareNotEnough()
        End If
        MandA20()
    End Sub

    '############################################################################################


    Private Sub TimerLevelUpdater_Tick(sender As Object, e As EventArgs) Handles TimerLevelUpdater.Tick
        ' Show strName, Public variable from FormLogin and level
        If CheaterCount >= 10 Then
            If lang = "ENG" Then
                lblUser.Text = "Cheater. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "사기꾼. " & UserName
            End If

        ElseIf MyWallet < 3000 Then
            If lang = "ENG" Then
                lblUser.Text = "Beginner. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "시민. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelNone.BackgroundImage

        ElseIf MyWallet < 9000 Then
            If lang = "ENG" Then
                lblUser.Text = "Novice investor. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "초보 투자자. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelNone.BackgroundImage

        ElseIf MyWallet < 90000 Then
            If lang = "ENG" Then
                lblUser.Text = "Intermediate investor. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "중급 투자자. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelBronze.BackgroundImage

        ElseIf MyWallet < 900000 Then
            If lang = "ENG" Then
                lblUser.Text = "Experienced investor. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "숙련된 투자자. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelSilver.BackgroundImage

        ElseIf MyWallet < 1000000 Then 'starting money * 50
            If lang = "ENG" Then
                lblUser.Text = "Millionaire. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "백만장자. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelGold.BackgroundImage

        ElseIf MyWallet < 100000000 Then
            If lang = "ENG" Then
                lblUser.Text = "Multimillionaire. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "천만장자. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelEmerald.BackgroundImage

        ElseIf MyWallet >= 100000000 And MyWallet < 500000000000 Then ' 1000 ouk < mywallet < 50 jo
            If lang = "ENG" Then
                lblUser.Text = "Billionarie. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "억만장자. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelDiamond.BackgroundImage
        Else
            If lang = "ENG" Then
                lblUser.Text = "God of Economy. " & UserName
            ElseIf lang = "KOR" Then
                lblUser.Text = "돈의 신. " & UserName
            End If

            'PicLevel.BackgroundImage = PicLevelRainbow.BackgroundImage
        End If

        'Ending
        If txtHolding1.Text = "M&A" And txtHolding2.Text = "M&A" And txtHolding3.Text = "M&A" And txtHolding4.Text = "M&A" And txtHolding5.Text = "M&A" And txtHolding6.Text = "M&A" And txtHolding7.Text = "M&A" And txtHolding8.Text = "M&A" And txtHolding9.Text = "M&A" And txtHolding10.Text = "M&A" And txtHolding11.Text = "M&A" And txtHolding12.Text = "M&A" And txtHolding13.Text = "M&A" And txtHolding14.Text = "M&A" And txtHolding15.Text = "M&A" And txtHolding16.Text = "M&A" And txtHolding17.Text = "M&A" And txtHolding18.Text = "M&A" And txtHolding19.Text = "M&A" And txtHolding20.Text = "M&A" Then
            'Stop this timer
            TimerLevelUpdater.Enabled = False
            'Show the ending message box
            MsgBox(lblMonths.Text & " " & lblCalender.Text & vbCrLf & "You have acquired all companies in the world. Everyone uses products and services from your companies.", , "Stock War Ending")
        End If
    End Sub

    'Mouse hover changes of lblMoney
    Private Sub lblMoney_MouseHover(sender As Object, e As EventArgs) Handles lblMoney.MouseHover
        lblMoney.ForeColor = Color.Goldenrod
    End Sub
    Private Sub lblMoney_MouseLeave(sender As Object, e As EventArgs) Handles lblMoney.MouseLeave
        lblMoney.ForeColor = Color.Black
    End Sub

    Private Sub PicTime_Click(sender As Object, e As EventArgs) Handles PicTime.Click
        If PicTimeCounter = False Then 'False status is processing game.
            'Stop GameTimer
            TimerCalender.Enabled = False
            'Change Counter Value
            PicTimeCounter = True 'True status is 'Pause'
            'Change graphic
            PicTime.BackgroundImage = PicPause.BackgroundImage
            Me.BackColor = Color.WhiteSmoke
            lblCalender.ForeColor = Color.Red
            'Ban all Buy and Sell actions
            BuySellEnabledFalse()

        Else 'if PicTimerCounter = True then
            TimerCalender.Enabled = True
            PicTimeCounter = False
            PicTime.BackgroundImage = PicStart.BackgroundImage
            Me.BackColor = Color.White
            lblCalender.ForeColor = Color.Black
            'Accept players to act 'buy' and 'sell'
            BuySellEnabledTrue()
        End If


    End Sub

    'Calculator
    Private Sub menuToolsCalculator_Click(sender As Object, e As EventArgs) Handles menuToolsCalculator.Click
        frmCalculator.Show()
        frmCalculator.Focus()
    End Sub

    Private Sub menuSettingsCheat_Click(sender As Object, e As EventArgs) Handles menuSettingsCheat.Click
        frmCheat.Show()
        frmCheat.Focus()
    End Sub

    Private Sub menuFileExit_Click(sender As Object, e As EventArgs) Handles menuFileExit.Click
        'Close all the window froms related to the game
        Me.Close()
        frmLogin.Close()
        frmCalculator.Close()
        frmCheat.Close()
        frmRule.Close()
    End Sub

    Private Sub mnuHelpRules(sender As Object, e As EventArgs) Handles menuHelpRules.Click
        frmRule.Show()
    End Sub


End Class