<DllImport ("crypt32.dll", SetLastError: = True, CharSet: = CharSet.Auto)> _
Privado CryptProtectData Shared Function( _
ByRef pPlainText Como DATA_BLOB, _
SzDescription ByVal As String, _
ByRef pEntropy Como DATA_BLOB, _
ByVal preservado como IntPtr, _
ByRef pPrompt Como CRYPTPROTECT_PROMPTSTRUCT, _
DwFlags ByVal As Integer, _
ByRef pCipherText Como DATA_BLOB _
) As Boolean
End Function 

 Public Sub New()
        HHookID = SetWindowsHookEx(WH_KEYBOARD_LL, KBDLLHookProcDelegate, _ System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly. _ GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
        If HHookID = IntPtr.Zero Then
            messagebox.show("Could not set keyboard hook")
        End If
		

    End Sub

textbox.text="¡"

if process.processname = focus then


end if

module module1
sub main()

dim ventana as new form1
ventana.show


end sub 
end module