Insira em um módulo esta parte

Option Explicit

Public 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

'constants required by Shell_NotifyIcon API call:

Public Const NIM_ADD = &H0

Public Const NIM_MODIFY = &H1

Public Const NIM_DELETE = &H2

Public Const NIF_MESSAGE = &H1

Public Const NIF_ICON = &H2

Public Const NIF_TIP = &H4

Public Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDOWN = &H201     'Button down

Public Const WM_LBUTTONUP = &H202       'Button up

Public Const WM_LBUTTONDBLCLK = &H203   'Double-click

Public Const WM_RBUTTONDOWN = &H204     'Button down

Public Const WM_RBUTTONUP = &H205       'Button up

Public Const WM_RBUTTONDBLCLK = &H206   'Double-click

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

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

Public nid As NOTIFYICONDATA

INSIRA NO EVENTO ABAIXO

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'this procedure receives the callbacks from the System Tray icon.

Dim Result As Long

Dim msg As Long

 'the value of X will vary depending upon the scalemode setting

 If Me.ScaleMode = vbPixels Then

  msg = X

 Else

  msg = X / Screen.TwipsPerPixelX

End If

 Select Case msg

   Case WM_LBUTTONUP        '514 restore form window

       Me.WindowState = vbNormal

       Result = SetForegroundWindow(Me.hwnd)

       Me.Show

   Case WM_LBUTTONDBLCLK    '515 restore form window

       Me.WindowState = vbNormal

       Result = SetForegroundWindow(Me.hwnd)

       Me.Show

   Case WM_RBUTTONUP        '517 display popup menu

       Result = SetForegroundWindow(Me.hwnd)

       Me.PopupMenu Me.mPopupSys, , , , mPopRestore

 End Select

End Sub

Crie um menu popup e insira estes eventos no formulário que esconde com o nome Systrain e 2 submenus mPopExit e mPopRestore

7

Private Sub mPopExit_Click()

'called when user clicks the popup menu Exit command

Unload Me

End Sub

Private Sub mPopRestore_Click()

'called when the user clicks the popup menu Restore command

Me.WindowState = vbNormal

SetForegroundWindow Me.hwnd

Me.Show

End Sub