Save game/Load game

[Equx]

You can Shell() a program to open it.

Shell("C:\temp\notepad.exe")

ok thanx
Now I have made my game, but I have made an code system. For example you can buy with real money some money to the game.
Here is the code:
If Text1.Text = 489331 Then
Label1 = Val(Label1) + 5000
Else
If Text1.Text = 123456 Then
Label1 = Val(Label1) + 500000
Else
MsgBox "Wrong code"
End If
End If
But I need to get it so that you only can use the code 489331 once. Otherwise you can press the "Submit" button 100000000 times and get a lot of money.
Anyone?

[dglienna]

Use a FLAG, initialize it somewhere else

Dim Flag1 as Boolean 
Flag1=False

if Flag1=false then
  If Text1.Text = 489331 Then
    Flag1=True
    Label1 = Val(Label1) + 5000
  End If
End If

this will only fire the first time. that's how you use a flag

[Equx]

Use a FLAG, initialize it somewhere else

Dim Flag1 as Boolean 
Flag1=False

if Flag1=false then
  If Text1.Text = 489331 Then
    Flag1=True
    Label1 = Val(Label1) + 5000
  End If
End If

this will only fire the first time. that's how you use a flag

Dosen't work.
I can press the "Submit" button how many times I whant ansd there is still coming money

[dglienna]

Not quite right:

Flag1=False

Sub ...
Static Flag1 as Boolean ' stays the same, starts at false
if Flag1=false then
  If Text1.Text = 489331 Then
    Flag1=True
    Label1 = Val(Label1) + 5000
  End If
End If
End Sub

[WoF]

This is not as trivial as you might think.
If you restart the program the flag is reset again. You can repeatedly start the program and press the submit button once again.

There must be a more complex mechanism to make sure, a code is only used once, if you want to be sure.