Visual Basic Hilfe!

Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetKeyState(ByVal keyCode As Integer) As Short
    End Function

    Friend WithEvents Timer1 As New Timer
    Friend WithEvents Timer2 As New Timer

    Dim cF5 As Boolean = False

    Public ReadOnly Property aKeyDown As Boolean
        Get
            Return (GetKeyState(Keys.A) < Keys.None)
        End Get
    End Property

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Timer1.Interval = 500
        Timer2.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If aKeyDown Then
            If cF5 = False Then
                Timer2.Start()
            Else
                Timer2.Stop()
            End If
        End If
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        SendKeys.Send("{F5}")
    End Sub

End Class