¿CÓMO MINIMIZAR UNA APLICACIÓN A LA BANDEJA DEL SISTEMA EN VB? (2 / 2 paso)

Paso 2: Resto del código

Dim nid como NOTIFYICONDATA ' variable trayicon

'----------------------
'---command1, haga clic en---
'----------------------
Private Sub Command1_Click()
minimize_to_tray
End Sub

'------------------------
'---crear icono---
'------------------------
Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
NID.HWND = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON o NIF_TIP o NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon ' el icono será el icono de proyecto Form1
nid.szTip = "blablabla texto que desee mostrar cuando mueva el ratón sobre la bandeja iicon" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

'---------------------------------------------------
'--Acciones bandeja icono al clic del ratón sobre él, etc.--
'---------------------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim msg mientras
Dim sFilter As String
MSG = x / Screen.TwipsPerPixelX
Seleccione caso msj
Caso WM_LBUTTONDOWN
Me.Show ' forma
Shell_NotifyIcon NIM_DELETE, nid ' icono de la bandeja del
Caso WM_LBUTTONUP
Caso WM_LBUTTONDBLCLK
Caso WM_RBUTTONDOWN
Caso WM_RBUTTONUP
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Caso WM_RBUTTONDBLCLK
Final seleccione
End Sub

'------------------------------
'---forma acciones en descarga---
'------------------------------
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid ' icono de la bandeja del

End Sub

En lugar de restaurar que al hacer clic en el icono de la bandeja, lo puedes hacer mostrar un mensaje emergente con algunas acciones: maximizar y cierre/sobre/etc.!