Strange problems with VB6

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If idHook < 0 Then
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
Else
Select Case True
Case GetAsyncKeyState(VK_LCONTROL)
frmMain.ActiveControl.Text = (ht.Item(17))
Case GetAsyncKeyState(VK_RCONTROL)
frmMain.ActiveControl.Text = (ht.Item(15))
Case GetAsyncKeyState(VK_LSHIFT)
frmMain.ActiveControl.Text = (ht.Item(16))
Case GetAsyncKeyState(VK_RSHIFT)
frmMain.ActiveControl.Text = (ht.Item(14))
Case GetAsyncKeyState(VK_LALT)
frmMain.ActiveControl.Text = (ht.Item(18))
Case GetAsyncKeyState(VK_RALT)
frmMain.ActiveControl.Text = (ht.Item(21))
End Select
End If
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function

For l = 2 To 37 - 2
 lstCurrentAssign.ListItems.Add Label & l.Caption
Next l