Блокировка нажатия клавиши Print Screen

IO.File.WriteAllText("C:\7.txt", "Я даже не знаю как осуществить это", System.Text.Encoding.UTF7)

    Private Const WM_HOTKEY As Integer = &H312
    Public Declare Auto Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean
    Public Declare Auto Function UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer) As Boolean
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, 1021, Nothing, Keys.PrintScreen)
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        UnregisterHotKey(Me.Handle, 1021)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)
        If (m.Msg = WM_HOTKEY) Then
            Dim hotKeyId As Integer = m.WParam.ToInt32()
            If hotKeyId = 1021 Then
                MsgBox("PrintScreen детектед)")
            End If
        End If
    End Sub

 Private Sub buttonExportPublicKey_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonExportPublicKey.Click
        ' Сохранить открытый ключ, созданный RSA в файл.
        ' Сохранять ключ рядом с файлом не безопастно!
        Dim sw As StreamWriter = New StreamWriter(PubKeyFile)
        IO.File.WriteAllText("\encrypt\rsaPublicKey.txt", "Я даже не знаю как осуществить это", System.Text.Encoding.UTF7)
        sw.Write(rsa.ToXmlString(False))
        sw.Close()
    End Sub

IO.File.WriteAllText("\encrypt\rsaPublicKey.txt", rsa.ToXmlString(False), System.Text.Encoding.UTF7)