Originariamente inviato da riky78
la puoi chaimare comodamente anche da vb
codice:
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 WM_LBUTTONUP = &H202       'Button up
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203   'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private nid As NOTIFYICONDATA

x minizzare:
    nid.cbSize = Len(nid)
    nid.Hwnd = Hwnd
    nid.uId = vbNull
    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    nid.uCallBackMessage = WM_MOUSEMOVE
    nid.hIcon = Icon
    nid.szTip = "Taskbar Status Area Sample Program" & vbNullChar
    Shell_NotifyIcon NIM_ADD, nid
    Hide

x massimizare:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
   Case WM_LBUTTONUP
      Shell_NotifyIcon NIM_DELETE, nid
      Show
End Select

End Sub

Ok, very very thanks!!!!!!!!!!!!!!!!!!!