ボタンをクリックするとvb.netで5秒ごとにスコアにポイントを1つ追加するにはどうすればよいですか？

Question

私はボタンをクリックしてポイントを得るゲームを作っています（ワンクリック=ワンポイント）。そして100ポイントに達すると、ボタン2という別のボタンをクリックしてマネージャを買うことができます。 5秒ですが、100ポイントのマネージャーを購入すると800ポイントになってマネージャーを買うので、2人のマネージャーがいるので、5秒ごとに2ポイントになります。

5秒ごとにポイントを追加するにはどうすればよいですか？ （私は機能を確認する必要がありますか？）

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    If Score.Text >= 100 And Score.Text <= 800 Then 
       If Button2.Text = "Buy One Manager for 100 Clicks" Then 
        Button2.Text = "Buy One Manager for 800 Clicks" 
        MsgBox("You have bought one manager") 
        Score.Text = Score.Text - 100 
        Managers.Text = Managers.Text + One 
        Clicks = (Clicks - 100) + (One * 4) 
       End If 
      ElseIf Score.Text >= 800 And Score.Text <= 6400 Then 
       If Button2.Text = "Buy One Manager for 800 Clicks" Then 
        Button2.Text = "Buy Two Managers for 6400 Clicks" 
        MsgBox("You have bought one manager") 
        Score.Text = Score.Text - 800 
        Managers.Text = Managers.Text + One 
        Clicks = (Clicks - 800) + (One * 4) 
       End If 
      ElseIf Score.Text >= 6400 And Score.Text <= 51200 Then 
       If Button2.Text = "Buy Two Managers for 6400 Clicks" Then 
        Button2.Text = "Buy Three Managers for 51200 Clicks" 
        MsgBox("You have bought two managers") 
        Score.Text = Score.Text - 6400 
        Managers.Text = Managers.Text + One 
        Clicks = (Clicks - 6400) + (One * 8) 
       End If 
    End If 
End Sub 

Answer 1

使用タイマーを5000間隔で

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

End Sub 

ここにコードを記述し