Public Const VK_BACK As UInteger = &H8
Public Const VK_TAB As UInteger = &H9
Public Const VK_CLEAR As UInteger = &HC
Public Const VK_RETURN As UInteger = &HD
Public Const VK_SHIFT As UInteger = &H10
Public Const VK_CONTROL As UInteger = &H11
Public Const VK_MENU As UInteger = &H12
Public Const VK_PAUSE As UInteger = &H13
Public Const VK_CAPITAL As UInteger = &H14
Public Const VK_ESCAPE As UInteger = &H1B
Public Const VK_SPACE As UInteger = &H20
Public Const VK_PRIOR As UInteger = &H21
Public Const VK_NEXT As UInteger = &H22
Public Const VK_END As UInteger = &H23
Public Const VK_HOME As UInteger = &H24
Public Const VK_LEFT As UInteger = &H25
Public Const VK_UP As UInteger = &H26
Public Const VK_RIGHT As UInteger = &H27
Public Const VK_DOWN As UInteger = &H28
Public Const VK_SELECT As UInteger = &H29
Public Const VK_EXECUTE As UInteger = &H2B
Public Const VK_SNAPSHOT As UInteger = &H2C
Public Const VK_INSERT As UInteger = &H2D
Public Const VK_DELETE As UInteger = &H2E
Public Const VK_HELP As UInteger = &H2F
Public Const VK_0 As UInteger = &H30
Public Const VK_1 As UInteger = &H31
Public Const VK_2 As UInteger = &H32
Public Const VK_3 As UInteger = &H33
Public Const VK_4 As UInteger = &H34
Public Const VK_5 As UInteger = &H35
Public Const VK_6 As UInteger = &H36
Public Const VK_7 As UInteger = &H37
Public Const VK_8 As UInteger = &H38
Public Const VK_9 As UInteger = &H39
Public Const VK_A As UInteger = &H41
Public Const VK_B As UInteger = &H42
Public Const VK_C As UInteger = &H43
Public Const VK_D As UInteger = &H44
Public Const VK_E As UInteger = &H45
Public Const VK_F As UInteger = &H46
Public Const VK_G As UInteger = &H47
Public Const VK_H As UInteger = &H48
Public Const VK_I As UInteger = &H49
Public Const VK_J As UInteger = &H4A
Public Const VK_K As UInteger = &H4B
Public Const VK_L As UInteger = &H4C
Public Const VK_M As UInteger = &H4D
Public Const VK_N As UInteger = &H4E
Public Const VK_O As UInteger = &H4F
Public Const VK_P As UInteger = &H50
Public Const VK_Q As UInteger = &H51
Public Const VK_R As UInteger = &H52
Public Const VK_S As UInteger = &H53
Public Const VK_T As UInteger = &H54
Public Const VK_U As UInteger = &H55
Public Const VK_V As UInteger = &H56
Public Const VK_W As UInteger = &H57
Public Const VK_X As UInteger = &H58
Public Const VK_Y As UInteger = &H59
Public Const VK_Z As UInteger = &H5A
Public Const VK_NUMPAD0 As UInteger = &H60
Public Const VK_NUMPAD1 As UInteger = &H61
Public Const VK_NUMPAD2 As UInteger = &H62
Public Const VK_NUMPAD3 As UInteger = &H63
Public Const VK_NUMPAD4 As UInteger = &H64
Public Const VK_NUMPAD5 As UInteger = &H65
Public Const VK_NUMPAD6 As UInteger = &H66
Public Const VK_NUMPAD7 As UInteger = &H67
Public Const VK_NUMPAD8 As UInteger = &H68
Public Const VK_NUMPAD9 As UInteger = &H69
Public Const VK_MULTIPLY As UInteger = &H6A
Public Const VK_ADD As UInteger = &H6B
Public Const VK_SEPARATOR As UInteger = &H6C
Public Const VK_SUBTRACT As UInteger = &H6D
Public Const VK_DECIMAL As UInteger = &H6E
Public Const VK_DIVIDE As UInteger = &H6F
Public Const VK_F1 As UInteger = &H70
Public Const VK_F2 As UInteger = &H71
Public Const VK_F3 As UInteger = &H72
Public Const VK_F4 As UInteger = &H73
Public Const VK_F5 As UInteger = &H74
Public Const VK_F6 As UInteger = &H75
Public Const VK_F7 As UInteger = &H76
Public Const VK_F8 As UInteger = &H77
Public Const VK_F9 As UInteger = &H78
Public Const VK_F10 As UInteger = &H79
Public Const VK_F11 As UInteger = &H7A
Public Const VK_F12 As UInteger = &H7B
Public Const VK_F13 As UInteger = &H7C
Public Const VK_F14 As UInteger = &H7D
Public Const VK_F15 As UInteger = &H7E
Public Const VK_F16 As UInteger = &H7F
Public Const VK_F17 As UInteger = &H80
Public Const VK_F18 As UInteger = &H81
Public Const VK_F19 As UInteger = &H82
Public Const VK_F20 As UInteger = &H83
Public Const VK_F21 As UInteger = &H84
Public Const VK_F22 As UInteger = &H85
Public Const VK_F23 As UInteger = &H86
Public Const VK_F24 As UInteger = &H87
Public Const VK_NUMLOCK As UInteger = &H90
Public Const VK_SCROLL As UInteger = &H91
Public Const VK_ATTN As UInteger = &HF6
Public Const VK_CRSEL As UInteger = &HF7
Public Const VK_EXSEL As UInteger = &HF8
Public Const VK_EREOF As UInteger = &HF9
Public Const VK_PLAY As UInteger = &HFA
Public Const VK_ZOOM As UInteger = &HFB
Public Const VK_NONAME As UInteger = &HFC
Public Const VK_PA1 As UInteger = &HFD
Public Const VK_OEM_CLEAR As UInteger = &HFE

Dim instance As Std = New Std()
Dim value As UInteger

value = std.VK_RETURN	'一例

'Stdクラス 定数

Public Class AddIn

	Private std As Std

	Public Sub New()
		std = New Std()
		Dim ch As UInteger = std.VK_RETURN
	End Sub

End Class