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