title: Using timers for the first time in VB
body: <p>I'm trying to work out why my code is not working, basically I am creating a clicker game, and every time I run the code in VB 2017, and then purchase the upgrade, the money doesn't update automatically. I am confused, and getting rather annoyed that I am incapable of something that would seem so basic, although I am new-ish to VB. Can anyone shed light on what I am doing incorrectly?</p>
  
  <pre><code>Public Class Form1
      Dim money As Decimal = 2000
      Dim LevelMultiplier As Decimal = 1
      Dim Price1 As Integer = 75
      Dim LevelCount As Integer = 1
      Dim AutoPrice1 As Integer = 1500
  
  
  
      Private Sub label_avail_money_TextChanged(sender As Object, e As EventArgs) Handles label_avail_money.TextChanged
          label_avail_money.Text = Math.Round(money, 2).ToString("0.00")
          If money &gt;= AutoPrice1 Then
              Button3.BackColor = Color.LimeGreen
  
          Else
              Button3.BackColor = Color.Gray
          End If
  
      End Sub
  
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          money = money + (1 * LevelMultiplier)
          If money &gt;= Price1 Then
              Button2.BackColor = Color.LimeGreen
  
          Else
              Button2.BackColor = Color.Gray
          End If
          label_avail_money.Text = money
      End Sub
  
      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
          If money &gt;= Price1 Then
              money = money - Price1
              LevelCount = LevelCount + 1
              LevelMultiplier = LevelMultiplier * 1.1
              Price1 = Price1 * 1.25
              lblPrice1.Text = Math.Round(Price1, 2).ToString("0.00")
          Else
              MsgBox("Insufficient Funds")
  
          End If
      End Sub
  
      Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
          money = money + 1
      End Sub
  
  
  
      Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
          If money &gt;= AutoPrice1 Then
              Timer1.Start()
              money = money - AutoPrice1
  
  
          Else
              MsgBox("Insufficient Funds")
  </code></pre>