Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY AndAlso Form.ActiveForm IsNot Nothing Then
            Select Case m.WParam
                Case 1
                    Form.ActiveForm.Text = "F5"
                Case 2
                    Form.ActiveForm.Text = "F9"
            End Select
        End If
        MyBase.WndProc(m)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov