Zombie Mode [Tool For You]

Private Sub Command1_Click()
    Text1.Text = Text1.Text + 1
End Sub

Private Sub Command10_Click()
    Text5.Text = Text5.Text + 1
End Sub

Private Sub Command11_Click()
    Text6.Text = Text6.Text + 1
End Sub
Private Sub Command12_Click()
    Text6.Text = Text6.Text - 1
End Sub

Private Sub Command13_Click()
    Text7.Text = Text7.Text + 1
End Sub
Private Sub Command14_Click()
    Text7.Text = Text7.Text - 1
End Sub

Private Sub Command16_Click()
    Text8.Text = Text8.Text + 1
End Sub
Private Sub Command15_Click()
    Text8.Text = Text8.Text - 1
End Sub

Private Sub Command17_Click()
    Text9.Text = Text9.Text + 1
End Sub

Private Sub Command18_Click()
    Text9.Text = Text9.Text - 1
End Sub

Private Sub Command19_Click()
    Text10.Text = Text10.Text - 1
End Sub

Private Sub Command2_Click()
    Text1.Text = Text1.Text - 1
End Sub

Private Sub Command20_Click()
    Text10.Text = Text10.Text + 1
End Sub

Private Sub Command21_Click()
    Form2.Show
End Sub

Private Sub Command22_Click()
    Form3.Show
End Sub

Private Sub Command3_Click()
    Text2.Text = Text2.Text - 1
End Sub

Private Sub Command4_Click()
    Text2.Text = Text2.Text + 1
End Sub

Private Sub Command5_Click()
    Text3.Text = Text3.Text - 1
End Sub

Private Sub Command6_Click()
    Text3.Text = Text3.Text + 1
End Sub

Private Sub Command7_Click()
    Text4.Text = Text4.Text + 1
End Sub

Private Sub Command8_Click()
    Text4.Text = Text4.Text - 1
End Sub

Private Sub Command9_Click()
    Text5.Text = Text5.Text - 1
End Sub

Private Sub Form_Load()
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    Label2.Caption = (Text1.Text * 2) + (Text2.Text * 2) + (Text3.Text * 4) + (Text4.Text * 4) + (Text8.Text * 4) + (Text7.Text * 20) + (Text6.Text * 6) + (Text5.Text * 8) + (Text10.Text * 100) + (Text9.Text * 200)
End Sub