VERSION 5.00
Begin VB.Form TrayForm
   Caption         =   "Form1"
   ClientHeight    =   675
   ClientLeft      =   5655
   ClientTop       =   5670
   ClientWidth     =   2040
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   675
   ScaleWidth      =   2040
End
Attribute VB_Name = "TrayForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public FrmSrc As Object


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
''X = costante WM_l/rMOUSE... * screen.twipsperpixelx
Dim Msg As Long ''quale evento e' stato generato sul tray
Msg = X / Screen.TwipsPerPixelX

FrmSrc.EventoTray Msg

End Sub


Private Sub Form_Unload(Cancel As Integer)
T.CancellaIcona
T.ShutDown
End Sub