مالخطئ في الشفره ؟؟

السلام عليكم

in model

PublicDeclareFunction Inp Lib"inpout32.dll"Alias"Inp32" (ByVal PortAddress AsShort) AsByte

PublicDeclareSub Out Lib"inpout32.dll"Alias"Out32" (ByVal PortAddress AsShort, ByVal Value AsByte)

PrivateSub Form1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) HandlesMe.KeyDown

If e.KeyCode = Keys.End Then

Out(888, 1)

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(Inp(888))

EndSub

كتبت الشفره السابقه وكان من المفترض بعد الضغط على المفتاح

End

ان تظهر لي رساله بعد الضغط على ال

Button

وان يكتب رقم المنفذ الذي خرجت له القولتيه لكن دائما الرقم 0

لا اعلم ماهو الخطئ

حيث وضعت المكتبه في الملف

System32

ارجو المساعده واشكر لكم مروركم مقدما