Visual Basic 6 - trayicon

raga mi spiegate come mettere un programma in trayicon?!? Grazie 1000!!

In un button per diventare trayicon

T.cbSize = Len(T) 
T.hWnd = pichook.hWnd 
T.uId = 1& 
T.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE 
T.ucallbackMessage = WM_MOUSEMOVE 
T.hIcon = imgOne.Picture 
T.szTip = "Recent" & Chr$(0) 
Shell_NotifyIcon NIM_ADD, T 
Me.Hide 
End Sub 
Me.WindowState = 1 

In un modulo bas

Private Type NOTIFYICONDATA 
cbSize As Long 
hWnd As Long 
uId As Long 
uFlags As Long 
ucallbackMessage As Long 
hIcon As Long 
szTip As String * 64 
End Type 

Private Const NIM_ADD = &H0 
Private Const NIM_MODIFY = &H1 
Private Const NIM_DELETE = &H2 
Private Const WM_MOUSEMOVE = &H200 
Private Const NIF_MESSAGE = &H1 
Private Const NIF_ICON = &H2 
Private Const NIF_TIP = &H4 

Private Const WM_LBUTTONDBLCLK = &H203 
Private Const WM_LBUTTONDOWN = &H201 
Private Const WM_LBUTTONUP = &H202 
Private Const WM_RBUTTONDBLCLK = &H206 
Private Const WM_RBUTTONDOWN = &H204 
Private Const WM_RBUTTONUP = &H205 

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 
Dim T As NOTIFYICONDATA 

E copia questo nel bottone per farlo ritornare normale

T.cbSize = Len(T) 
T.hWnd = pichook.hWnd 
T.uId = 1& 
Shell_NotifyIcon NIM_DELETE, T 
Me.Show 

__________________________________________________
Sono il nuovo mod di questa sezione