Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        
    End Sub

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

    End Sub

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Me.NumericUpDown1.Maximum = 100 - (Me.NumericUpDown2.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown2.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown3.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown4.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown3.Value)
        Me.TextBox2.Text = "Efficiency = Outputs/Inputs. Compenies compete against each other by maximizing their efficiencies. Reducing costs and increasing product outputs would be a great way to increase efficiency. Businesses also race against time to produce as much as they can once they have enough customers."
    End Sub

    Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
        Me.NumericUpDown1.Maximum = 100 - (Me.NumericUpDown2.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown2.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown3.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown4.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown3.Value)
        Me.TextBox2.Text = "Quality: Bundle of attributes. Companies compete using qualitative strategies in the industry. They can use Quality as excellence (style, design, aesthetic advantages) or Quality as reliability (lasts for years, protects functionality)."
    End Sub

    Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
        Me.NumericUpDown1.Maximum = 100 - (Me.NumericUpDown2.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown2.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown3.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown4.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown3.Value)
        Me.TextBox2.Text = "Low Cost Strategy: A common strategy used by businesses to gain competitive advantage by selling products or services as cheap as possible and usually cheaper than their competitors. There are other strategies such as Differentiation Strategy or Segmentation Strategy"
    End Sub

    Private Sub NumericUpDown4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
        Me.NumericUpDown1.Maximum = 100 - (Me.NumericUpDown2.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown2.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown3.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown4.Value)
        Me.NumericUpDown4.Maximum = 100 - (Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown3.Value)
        Me.TextBox2.Text = "Innovation: Creation of products or services that are new to the world or have attributes superior to those of existing products. Innovative companies always try to come up with products or services that serve and satisfy consumers better."


    End Sub

    Private Sub NumericUpDown5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown5.ValueChanged
        Me.NumericUpDown5.Maximum = 100 - (Me.NumericUpDown6.Value + Me.NumericUpDown7.Value)
        Me.NumericUpDown6.Maximum = 100 - (Me.NumericUpDown5.Value + Me.NumericUpDown7.Value)
        Me.NumericUpDown7.Maximum = 100 - (Me.NumericUpDown5.Value + Me.NumericUpDown6.Value)
        Me.TextBox2.Text = "Productivity increases profitability and company success. Employee productivity: Output/employee. Capital productivity: Output/unit of invested capital."
    End Sub

    Private Sub NumericUpDown6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown6.ValueChanged
        Me.NumericUpDown5.Maximum = 100 - (Me.NumericUpDown6.Value + Me.NumericUpDown7.Value)
        Me.NumericUpDown6.Maximum = 100 - (Me.NumericUpDown5.Value + Me.NumericUpDown7.Value)
        Me.NumericUpDown7.Maximum = 100 - (Me.NumericUpDown5.Value + Me.NumericUpDown6.Value)
        Me.TextBox2.Text = "Using the strategies stated above, businesses try to dominate the industry and gain more market share than its competitors. If they are successful, this means they have competitive advantage over other organizations in the industry."
    End Sub

    Private Sub NumericUpDown7_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown7.ValueChanged
        Me.NumericUpDown5.Maximum = 100 - (Me.NumericUpDown6.Value + Me.NumericUpDown7.Value)
        Me.NumericUpDown6.Maximum = 100 - (Me.NumericUpDown5.Value + Me.NumericUpDown7.Value)
        Me.NumericUpDown7.Maximum = 100 - (Me.NumericUpDown5.Value + Me.NumericUpDown6.Value)
        Me.TextBox2.Text = "A company's success highly depends on the success and style of its managers. A company that is very well managed will succeed and reach its goals. Usually there are 2 types of managers: 1.general managers 2.functional managers."
    End Sub

    Private Sub NumericUpDown8_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown8.ValueChanged
        Me.NumericUpDown8.Maximum = 50 - Me.NumericUpDown9.Value
        Me.NumericUpDown9.Maximum = 50 - Me.NumericUpDown8.Value
        Me.TextBox2.Text = "Rivalry is the competitive struggle between companies in an industry to gain market share from each other. Intense rivalry contitutes a strong threat of profitability."
    End Sub

    Private Sub NumericUpDown9_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown9.ValueChanged
        Me.NumericUpDown9.Maximum = 50 - Me.NumericUpDown8.Value
        Me.NumericUpDown8.Maximum = 50 - Me.NumericUpDown9.Value
        Me.TextBox2.Text = "This is a variable which shows how the other companies in the industry are doing. For example: How much market share they own, how many suppliers they control, etc..."
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MS = 0
        Dim CP = 0
        Dim IP = 0
        Dim Success
        MS = Me.NumericUpDown1.Value + Me.NumericUpDown2.Value + Me.NumericUpDown3.Value + Me.NumericUpDown4.Value
        CP = Me.NumericUpDown5.Value + Me.NumericUpDown6.Value + Me.NumericUpDown7.Value
        IP = Me.NumericUpDown8.Value + Me.NumericUpDown9.Value
        Success = ((MS + CP) / 2) - IP
        TextBox1.Text = Success.ToString + "%"
        If (Success > 75) Then
            PictureBox1.Image = Image.FromFile(Application.StartupPath + "\higher.gif")
            If (Success > 94) Then
                PictureBox1.Image = Image.FromFile(Application.StartupPath + "\money_bags.png")
            End If
        End If
        If (Success < 76) Then
            PictureBox1.Image = Image.FromFile(Application.StartupPath + "\medium.gif")
            If (Success < 26) Then
                PictureBox1.Image = Image.FromFile(Application.StartupPath + "\Store.jpg")
            End If
        End If
    End Sub
End Class