Question Trainer Problem

[iBored1x1]

Hey guys im trying to make a trainer DragonFalbe but im having a bit of trouble.
I can get ingame fine and everything but when i enter a value and click the command button it does nothing :\
Here's The Script :

Private Sub Command1_Click()
Timer1 = True
End Sub

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Timer1_Timer()
Call ShockwaveFlash1.SetVariable("character.intHp", Text1.Text)
Call ShockwaveFlash1.SetVariable("character.intMaxHp", Text1.Text)
End Sub