Подскажте плиз! Что не так делаю!

На ПК в Microsoft Visual Basic 6.0 все нормально работает.

в NSBasic и в Microsoft Visual Studio .NET 2003(для SmartDeviceApplication)
не запускается. :-(
Как мне это добро переделать под КПК?
Клава USB? нормально определяется и прекрасно работает.
что нужно изменить? Как мне решить эту задачу?
Может другой код какой есть? котрый подойдет для кпк?
Спасибо!



Dim currentKeys(0 To 250) As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If currentKeys(KeyCode) = False Then
currentKeys(KeyCode) = True
If KeyCode = vbKey1 Then Label1 = "1"
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
currentKeys(KeyCode) = False
If KeyCode = vbKey1 Then Label1 = ""
End Sub

Private Sub Form_Load()
Label1 = ""
End Sub