Please help me with addition to variable

[jiexian]

Please teach me how to do this the right way in vb6 or vb08. (preferbably vb6)

What i want is to increase the value of Text1.text by 1 every time i click it. But with this code, Text1.text remains as 1 so matter how many times i click it.

Private Sub Form_Load()
 Dim cap As Integer
cap = Val(Text1.Text)
End Sub

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

[debasisdas]

try using Static instead of Dim.

[QVeen72]

Hi,

In Command1_Click, just change the code to :


[code=vb]
Private Sub Command1_Click( )
Text1.Text = Val(Text1.Text) +1
End Sub
[/code]

Remove code from Form_Load

Regards
Veena