Public Class Form1
        'Declareing Variables for numbers for futuer use
    Dim strRadeon As String
    Dim decRadeon As Decimal
    Dim strNvidia As String
    Dim decNvidia As Decimal
    Dim strAMD As String
    Dim decAMD As Decimal
    Dim strIntel As String
    Dim decIntel As Decimal
    Dim strKingston As String
    Dim decKingston As Decimal
    Dim strCorsair As String
    Dim decCorsair As Decimal
    Dim strCoolerMaster As String
    Dim decCoolerMaster As Decimal
    Dim strEvega As String
    Dim decEvega As Decimal
    Dim strMSI As String
    Dim decMSI As Decimal
    Dim strGigabyte As String
    Dim decGigabyte As Decimal
    Dim strHDD As String
    Dim decHDD As Decimal
    Dim strSSD As String
    Dim decSSD As Decimal

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Population combo boxes with products
        cboRadeon.Items.Add("AMD Radeon R9 290X")
        cboRadeon.Items.Add("AMD Radeon HD 8970")
        cboRadeon.Items.Add("AMD Radeon HD 7950")
        cboNvidia.Items.Add("NVIDIA GEFORCE GTX 1080 Founders Edition 8096MB GDDR5")
        cboNvidia.Items.Add("NVIDIA GEFORCE GTX 1050 Ti Msi Gaming X 4096MB GDDR5")
        cboNvidia.Items.Add("GIGABYTE NVIDIA GEFORCE GTX 980 4096MB GDDR5")
        'Population combo boxes with products
        cboAMD.Items.Add("AMD FX-8350 4.00GHZ Octa Core")
        cboAMD.Items.Add("AMD FX-8320 3.50HZ Octa Core")
        cboAMD.Items.Add("AMD FX-6300 3.50GHZ Hexa Core")
        cboIntel.Items.Add("INTEL CORE I7 6700K 4.00GHZ QUAD CORE")
        cboIntel.Items.Add("INTEL CORE I5 6600K 3.50GHZ QUAD CORE")
        cboIntel.Items.Add("INTEL CORE I5 4690 3.50GHZ QUAD CORE")
        'Population combo boxes with products
        cboKingston.Items.Add("KINGSTON HyperX Black DDR4 16GB 2400FSB DIMM MEMORY")
        cboKingston.Items.Add("KINGSTON SAVAGE Black DDR4 8GB 2133FSB DIMM MEMORY")
        cboKingston.Items.Add("KINGSTON SAVAGE Red DDR3 4GB 1806FSB DIMM MEMORY")
        cboCorsair.Items.Add("Corsair RED LED DDR4 16GB 2400FSB DIMM MEMORY")
        cboCorsair.Items.Add("Corsair Blue LED DDR4 8GB 2133FSB DIMM MEMORY")
        cboCorsair.Items.Add("Corsair DDR3 8GB 1600FSB DIMM MEMORY")
        'Population combo boxes with products
        cboCoolerMaster.Items.Add("CoolerMaster 1500 Watt Power Supply")
        cboCoolerMaster.Items.Add("CoolerMaster 1200 Watt Power Supply")
        cboCoolerMaster.Items.Add("CoolerMaster 600 Watt Power Supply")
        cboEvega.Items.Add("Evega 800 Watt Power Supply")
        cboEvega.Items.Add("Evega 600 Watt Power Supply")
        cboEvega.Items.Add("Evega 450 Watt Power Supply")
        'Population combo boxes with products
        cboMSI.Items.Add("MSI MZ X240 Fatality AM3+")
        cboMSI.Items.Add("MSI MZ Z270 FD4 DDR4 AM4")
        cboMSI.Items.Add("MSI MZ H450 D3H")
        cboGigabyte.Items.Add("Gigabyte GB 3470 Z170X GAMING5 k7")
        cboGigabyte.Items.Add("Gigabyte GB Z170 HD3 DDR3")
        cboGigabyte.Items.Add("Gigabyte GB B150M FD3")
        'Population combo boxes with products
        cboHDD.Items.Add("WD Blue-35B6TBWD 850 EVO 6TB GB HDD")
        cboHDD.Items.Add("WD Black-35B2TBWD 850 EVO 2TB GB HDD")
        cboHDD.Items.Add("WD Red-35R1TBWD 850 EVO 1TB GB HDD")
        cboSSD.Items.Add("SAMSUNG MZ-75E1T0BW 850 EVO 1TB GB SSD")
        cboSSD.Items.Add("SAMSUNG MZ-75E5000BW 850 EVO 500 GB SSD")
        cboSSD.Items.Add("SAMSUNG MZ-75E250BW 850 EVO 250 GB SSD")

    End Sub

    Private Sub cboRadeon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRadeon.SelectedIndexChanged

        If cboRadeon.SelectedIndex = 0 Then
            strRadeon = "AMD Radeon R9 290X"
            decRadeon = "11699"
        End If

        If cboRadeon.SelectedIndex = 1 Then
            strRadeon = "AMD Radeon HD 8970"
            decRadeon = "7299"
        End If

        If cboRadeon.SelectedIndex = 2 Then
            strRadeon = "AMD Radeon HD 7950"
            decRadeon = "6699"
        End If

    End Sub

    Private Sub cboNvidia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNvidia.SelectedIndexChanged

        If cboNvidia.SelectedIndex = 0 Then
            strNvidia = "NVIDIA GEFORCE GTX 1080 Founders Edition 8096MB GDDR5"
            decNvidia = "14699"
        End If

        If cboNvidia.SelectedIndex = 1 Then
            strNvidia = "NVIDIA GEFORCE GTX 1050 Ti Msi Gaming X 4096MB GDDR5"
            decNvidia = "3299"
        End If

        If cboNvidia.SelectedIndex = 2 Then
            strNvidia = "GIGABYTE NVIDIA GEFORCE GTX 980 4096MB GDDR5"
            decNvidia = "4699"
        End If

    End Sub

    Private Sub cboAMD_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAMD.SelectedIndexChanged

        If cboAMD.SelectedIndex = 0 Then
            strAMD = "AMD FX-8350 4.00GHZ Octa Core"
            decAMD = "3299"
        End If

        If cboAMD.SelectedIndex = 1 Then
            strAMD = "AMD FX-8320 3.50HZ Octa Core"
            decAMD = "2799"
        End If

        If cboAMD.SelectedIndex = 2 Then
            strAMD = "AMD FX-6300 3.50GHZ Hexa Core"
            decAMD = "2300"
        End If

    End Sub
    Private Sub cboIntel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboIntel.SelectedIndexChanged

        If cboIntel.SelectedIndex = 0 Then
            strIntel = "INTEL CORE I7 6700K 4.00GHZ QUAD CORE"
            decIntel = "11699"
        End If

        If cboIntel.SelectedIndex = 1 Then
            strIntel = "INTEL CORE I5 6600K 3.50GHZ QUAD CORE"
            decIntel = "7299"
        End If

        If cboIntel.SelectedIndex = 2 Then
            strIntel = "INTEL CORE I5 4690 3.50GHZ QUAD CORE"
            decIntel = "2699"
        End If

    End Sub
    Private Sub cbKingston_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKingston.SelectedIndexChanged

        If cboKingston.SelectedIndex = 0 Then
            strKingston = "KINGSTON HyperX Black DDR4 16GB 2400FSB DIMM MEMORY"
            decKingston = "2000"
        End If

        If cboKingston.SelectedIndex = 1 Then
            strKingston = "KINGSTON SAVAGE Black DDR4 8GB 2133FSB DIMM MEMORY"
            decKingston = "1200"
        End If

        If cboKingston.SelectedIndex = 2 Then
            strKingston = "KINGSTON SAVAGE Red DDR3 4GB 1806FSB DIMM MEMORY"
            decKingston = "420"
        End If

    End Sub
    Private Sub cboCorsair_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCorsair.SelectedIndexChanged

        If cboCorsair.SelectedIndex = 0 Then
            strCorsair = "Corsair RED LED DDR4 16GB 2400FSB DIMM MEMORY"
            decCorsair = "4399"
        End If

        If cboCorsair.SelectedIndex = 1 Then
            strCorsair = "Corsair Blue LED DDR4 8GB 2133FSB DIMM MEMORY"
            decCorsair = "1400"
        End If

        If cboCorsair.SelectedIndex = 2 Then
            strCorsair = "Corsair DDR3 8GB 1600FSB DIMM MEMORY"
            decCorsair = "900"
        End If

    End Sub
    Private Sub cboCoolerMaster_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCoolerMaster.SelectedIndexChanged

        If cboCoolerMaster.SelectedIndex = 0 Then
            strCoolerMaster = "CoolerMaster 1500 Watt Power Supply"
            decCoolerMaster = "3000"
        End If

        If cboCoolerMaster.SelectedIndex = 1 Then
            strCoolerMaster = "CoolerMaster 1200 Watt Power Supply"
            decCoolerMaster = "2300"
        End If

        If cboCoolerMaster.SelectedIndex = 2 Then
            strCoolerMaster = "CoolerMaster 600 Watt Power Supply"
            decCoolerMaster = "849"
        End If

    End Sub
    Private Sub cboEvega_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboEvega.SelectedIndexChanged

        If cboEvega.SelectedIndex = 0 Then
            strEvega = "Evega 800 Watt Power Supply"
            decEvega = "900"
        End If

        If cboEvega.SelectedIndex = 1 Then
            strEvega = "Evega 600 Watt Power Supply"
            decEvega = "799"
        End If

        If cboEvega.SelectedIndex = 2 Then
            strEvega = "Evega 450 Watt Power Supply"
            decEvega = "500"
        End If

    End Sub
    Private Sub cboMSI_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMSI.SelectedIndexChanged

        If cboMSI.SelectedIndex = 0 Then
            strMSI = "MSI MZ X240 Fatality AM3+"
            decMSI = "2399"
        End If

        If cboMSI.SelectedIndex = 1 Then
            strMSI = "MSI MZ Z270 FD4 DDR4 AM4"
            decMSI = "4299"
        End If

        If cboMSI.SelectedIndex = 2 Then
            strMSI = "MSI MZ H450 D3H"
            decMSI = "2699"
        End If

    End Sub
    Private Sub cboGigabyte_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGigabyte.SelectedIndexChanged

        If cboGigabyte.SelectedIndex = 0 Then
            strGigabyte = "Gigabyte GB 3470 Z170X GAMING5 k7"
            decGigabyte = "5000"
        End If

        If cboGigabyte.SelectedIndex = 1 Then
            strGigabyte = "Gigabyte GB Z170 HD3 DDR3"
            decGigabyte = "3699"
        End If

        If cboGigabyte.SelectedIndex = 2 Then
            strGigabyte = "Gigabyte GB B150M FD3"
            decGigabyte = "2339"
        End If

    End Sub
    Private Sub cboHDD_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboHDD.SelectedIndexChanged

        If cboHDD.SelectedIndex = 0 Then
            strHDD = "WD Blue-35B6TBWD 6TB GB HDD"
            decHDD = "5299"
        End If

        If cboHDD.SelectedIndex = 1 Then
            strHDD = "WD Black-35B2TBWD 2TB GB HDD"
            decHDD = "3200"
        End If

        If cboHDD.SelectedIndex = 2 Then
            strHDD = "WD Red-35R1TBWD 1TB GB HDD"
            decHDD = "1199"
        End If

    End Sub
    Private Sub cboSSD_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSSD.SelectedIndexChanged

        If cboSSD.SelectedIndex = 0 Then
            strSSD = "SAMSUNG MZ-75E1T0BW 850 EVO 1TB GB SSD"
            decSSD = "4499"
        End If

        If cboSSD.SelectedIndex = 1 Then
            strSSD = "SAMSUNG MZ-75E5000BW 850 EVO 500 GB SSD"
            decSSD = "2300"
        End If

        If cboSSD.SelectedIndex = 2 Then
            strSSD = "SAMSUNG MZ-75E250BW 850 EVO 250 GB SSD"
            decSSD = "1129"
        End If

    End Sub

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        'Declare output variables
        Dim decAmount As Decimal
        Dim decVAT As Decimal
        Dim decSubtotal As Decimal
        Dim decDiscount As Decimal
        Dim decTotal As Decimal
        'Doing calculations
        decAmount = decRadeon + decNvidia + decAMD + decIntel + decKingston + decCorsair + decCoolerMaster + decEvega + decGigabyte + decHDD + decSSD
        lblAmount.Text = "Amount = " & decAmount.ToString("C2")
        'Doing calculations
        decVAT = 0.13 * decAmount
        lblVAT.Text = "VAT = " & decVAT.ToString("C2")
        'Doing calculations
        decSubtotal = decAmount + decVAT
        lblSubtotal.Text = "Subtotal = " & decSubtotal.ToString("C2")
        'Doing calculations
        If decDiscount = decAmount >= 10000 Then
            decDiscount = 0.09 * decAmount
            'Doing calculations
        End If
        'Doing calculations
        If decAmount >= 12000 Then
            decDiscount = 0.7 * decAmount

        End If
        'Doing calculations
        lblDiscount.Text = "Discount = " & decDiscount.ToString("C2")

        decTotal = decSubtotal - decDiscount
        lblTotal.Text = "Total = " & decTotal.ToString("C2")
        'populationg a list box
        lstProducts.Items.Add("Member 1")
        lstProducts.Items.Add("HardWare")
        lstProducts.Items.Add(cboRadeon.Text)
        lstProducts.Items.Add(cboNvidia.Text)
        lstProducts.Items.Add(cboAMD.Text)
        lstProducts.Items.Add(cboIntel.Text)
        lstProducts.Items.Add(cboKingston.Text)
        lstProducts.Items.Add(cboCorsair.Text)
        lstProducts.Items.Add(cboCoolerMaster.Text)
        lstProducts.Items.Add(cboEvega.Text)
        lstProducts.Items.Add(cboMSI.Text)
        lstProducts.Items.Add(cboGigabyte.Text)
        lstProducts.Items.Add(cboHDD.Text)
        lstProducts.Items.Add(cboSSD.Text)

    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        Dim intResponse As Integer
        intResponse = MessageBox.Show("Are you sure you wish to cancel your order", "Canceling Order", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If intResponse = DialogResult.Yes Then

            'Clearing all Controls
            cboRadeon.Text = Nothing
            cboNvidia.Text = Nothing
            cboAMD.Text = Nothing
            cboIntel.Text = Nothing
            cboKingston.Text = Nothing
            cboCorsair.Text = Nothing
            cboCoolerMaster.Text = Nothing
            cboEvega.Text = Nothing
            cboMSI.Text = Nothing
            cboGigabyte.Text = Nothing
            cboHDD.Text = Nothing
            cboSSD.Text = Nothing
            lblAmount.Text = Nothing & ("Amount = ")
            lblDiscount.Text = Nothing & ("Discount = ")
            lblSubtotal.Text = Nothing & ("Subtotal = ")
            lblTotal.Text = Nothing & ("Total = ")
            lblVAT.Text = Nothing & ("VAT = ")
            lstProducts.Items.Clear()

        End If
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        'Exiting website
        Dim intResponse As Integer
        intResponse = MessageBox.Show("Are you sure you want to exit the Website?", "Exiting Website", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If intResponse = DialogResult.Yes Then

            Me.Close()

        End If
    End Sub

End Class

Public Class Form2

    'This form is used so that users may enter the website with the chosen crudentials from their registaration to Sign In
    Private Sub btnSignIn_Click(sender As Object, e As EventArgs) Handles btnSignIn.Click
        Dim strUsername As String
        Dim strPassword As String

        strUsername = txtUsername.Text
        strPassword = txtPassword.Text
        'This allows for a user name and password to be entered to login to the website
        If strUsername = "Member 1" And strPassword = "the earth is flat" Then
            Form1.Show()
            Me.Hide()
            txtPassword.Text = Nothing
            txtUsername.Text = Nothing
        Else
            MessageBox.Show("Please enter Sign In details", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

    End Sub

End Class