Проблемы с обработкой сообщений Tray

[SVL]

Всем привет! Пишу программу, которая большую часть времени проводит в фоновом режиме, для ее активации помещаю в трей значок программы. На компьютере, где установлен VB никаких проблем не возникает, все отлично работает. Устанавливаю ее с помощью SF 6.0 на другой компьютер. Программа работает, но при щелчке мышью на трее не активизируется. Проверил Spyем - окно сообщение получает. При помещении в обработку события MsgBox - не срабатывает. Никто не знает, в чем может быть проблема?

[Gigahard]

2SVL: Приведи твой код обработки событий с треем.

[SVL]

В структуре NID:
NID.uCallbackMessage = WM_LBUTTONDOWN

В обработчике формы:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Static bPressed As Boolean
If y = 0 Then ' SysTray Icon Events
Select Case x
Case 512 * TpX ' MouseMove
Case 513 * TpX ' LeftButtonDown
Case 514 * TpX ' LeftButtonUp
Case 515 * TpX ' LeftDblClick
Show
Case 516 * TpX ' RightButtonDown
bPressed = True
Case 517 * TpX ' RightButtonUp
If bPressed Then
Me.PopupMenu mnuFile
bPressed = False
End If
Case 518 * TpX ' RightButtonDblClick
End Select
Exit Sub
End If

End Sub
TpX изначально: TpX = Screen.TwipsPerPixelX