Hi
You need to set the starting values outside the button click because the way you are doing it, they are always set to the initial values.
For example:
Dim intCash As Integer = 500
Dim intDay As Integer = 0
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
intDay += 1
intCash -= 10
lblCash.Text = intCash.ToString
lblDays.Text = intDay.ToString
End Sub
Regards Les, Livingston, Scotland