Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey _
      As Keys) As Integer
    Public Const KeyPressed As Integer = -32767
 
    Private Sub KeyTimer_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles KeyTimer.Tick
        If GetAsyncKeyState(Keys.F5) = KeyPressed Then
            WebBrowser1.Reload()
        End If
    End Sub