How to make a button add....??

[moe222]

Hello all..
I was wondering how I can make a click of a button add to the caption of a label..in other words i have a label with caption saying 100 when the button is clicked i want 50 added to the caption, can i do that? And if so how can i make it subtract as well.

(Sorry for bad english)

[BeholderOf]

try this:

Private Sub Command1_Click()
'addition 
label1.Caption = val(label1.caption) + 50
'subtraction
label1.Caption = val(label1.caption) - 50
End Sub

[dynamic_sysop]

something like this then.....

Private Sub Command1_Click()
If IsNumeric(Label1.Caption) Then '/// make sure it's only numbers you try to add up.
    Label1.Caption = Label1.Caption + 50
End If
End Sub

[moe222]

thx it worked