1#Region "Constantes API"	   ...
2
3    Private Const SE_ERR_FNF As Short = 2
4    Private Const SE_ERR_PNF As Short = 3
5    Private Const SE_ERR_ACCESSDENIED As Short = 5
6    Private Const SE_ERR_OOM As Short = 8
7    Private Const SE_ERR_DLLNOTFOUND As Short = 32
8    Private Const SE_ERR_SHARE As Short = 26
9    Private Const SE_ERR_ASSOCINCOMPLETE As Short = 27
10    Private Const SE_ERR_DDETIMEOUT As Short = 28
11    Private Const SE_ERR_DDEFAIL As Short = 29
12    Private Const SE_ERR_DDEBUSY As Short = 30
13    Private Const SE_ERR_NOASSOC As Short = 31
14    Private Const ERROR_BAD_FORMAT As Short = 11
15
16    'Cursor constants
17    Private Const IDC_APPSTARTING As UInt32 = 32650
18    Private Const IDC_ARROW As UInt32 = 32512
19    Private Const IDC_HAND As UInt32 = 32649
20    Private Const IDC_CROSS As UInt32 = 32515
21    Private Const IDC_HELP As UInt32 = 32651
22    Private Const IDC_IBEAM As UInt32 = 32513
23    Private Const IDC_NO As UInt32 = 32648
24    Private Const IDC_SIZEALL As UInt32 = 32646
25    Private Const IDC_SIZENESW As UInt32 = 32643
26    Private Const IDC_SIZENS As UInt32 = 32645
27    Private Const IDC_SIZENWSE As UInt32 = 32642
28    Private Const IDC_SIZEWE As UInt32 = 32644
29    Private Const IDC_UP As UInt32 = 32516
30    Private Const IDC_WAIT As UInt32 = 32514
31    Private Const SPI_SETCURSORS = 87
32    Private Const SPIF_SENDWININICHANGE = &H2
33    Private Const SPIF_UPDATEINIFILE = &H1
34    Const WM_SETREDRAW As Integer = &HB
35    Const WM_USER As Integer = &H400
36    Const EM_GETEVENTMASK As Integer = (WM_USER + 59)
37    Const EM_SETEVENTMASK As Integer = (WM_USER + 69)
38
39
40    Private Declare Auto Function SendMessage Lib "user32.dll" _
41        (ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
42#End Region