Продолжать отображать название нажатой клавиши при потере фокуса

Нужно, чтобы при нажатии клавиши она была отображена в заголовке проекта. Это получилось, а вот чтобы это продолжало выполняться даже если убрать фокус с окна проекта, не получилось.

Вот код:

Public Class Form1
    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        Label1.Text = Label1.Text + " " + Str(e.KeyValue)
        FileOpen(1, "D:\1.txt", OpenMode.Output)
        Print(1, Label1.Text)
        FileClose(1)
    End Sub
End Class