Timed Recurring Key Press

[mcgrath50]

I am looking at writing a program that presses a key ('A') every minute in whatever the focused window is. I am having trouble working out what command to use in the timer1_timer sub so that it presses A and then restarts the timer, what I have at the moment dosn't work. I am using Visual Basic 2005 Express

Here is the code

Public Class Form1
 
    'Disables Timer1 at startup
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Timer1.Enabled = False
 
    End Sub
    'timer stopped on click of end button
    Private Sub cmdEnd_Click()
 
        Timer1.Enabled = False
 
    End Sub
 
    'send keys is activated every time the timer event occurs
    'Restarts the timer
    Private Sub Timer1_Timer()
 
        SendKeys.Send("A")
        Timer1.Enabled = True
 
    End Sub
    'timer enabled on click of start button
    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
 
        Timer1.Enabled = True
 
    End Sub
    'Creates buble tooltip on mouse hover
    Private Sub cmdStart_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdStart.MouseHover
 
        toolTip.SetToolTip(cmdStart, "Click here to start the timer")
 
    End Sub
    'Creates bubble tooltip on mouse hover
    Private Sub cmdEnd_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdEnd.MouseHover
 
        toolTip.SetToolTip(cmdEnd, "Click here to stop the timer")
 
    End Sub
End Class
 

[mcgrath50]

Tried searchig for tutorials and the net and have found zip.

[mcgrath50]

Public Class Form1
 
    'Disables Timer1 at startup
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub
    'timer enabled on click of start button
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Timer1.Enabled = True
    End Sub
    'Creates buble tooltip on mouse hover
    Private Sub btnStart_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.MouseHover
        toolTip.SetToolTip(btnStart, "Click here to start the timer")
    End Sub
    'send keys is activated every time the timer event occurs
    'Restarts the timer
    Private Sub Timer1_Timer()
        SendKeys.Send("{TAB}")
        Timer1.Enabled = True
    End Sub
    'timer stopped on click of end button
    Private Sub btnEnd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnd.Click
        Timer1.Enabled = False
    End Sub
    'Creates bubble tooltip on mouse hover
    Private Sub btnEnd_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnd.MouseHover
        toolTip.SetToolTip(btnEnd, "Click here to stop the timer")
    End Sub
End Class
 

What am I doing wrong I can't see any problem in my code :S

[mcgrath50]

Guys found the problem, I was still using VB6 script for the timer. Explains everything :P

The timer should be Timer1_Tick