Fixed code, still need help tho... SIMULATE REAL KEYBOARD COMMANDS

[thegreatone]

Ok, i basically want to send the contents of Text1 to the program defined as Appnum the sending will be done by a timer (every 5 minutes...) where in my code have i gone wrong ?

Private Appnum As Long
Private Sub Command1_Click()
Appnum = Shell("C:\WINDOWS\notepad.exe")
Timer2.Enabled = True
End Sub
 
Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
AppActivate Appnum
SendKeys (Text1.Text)
End Sub