Pessoal, Ao minimizar minha aplicação, consigo adicioná-la no System Tray com sucesso. Private Sub TitleBar1_MinButtonClick() Call SysTray(TrayAdd, Me.Hwnd, Me.Caption, Me.Icon) Me.Hide End Sub Agora o problema... Criei um menu que, quando clicamos com o botão esquerdo em cima do ícone no System Tray, fornece a opção de restaurar a aplicação para o modo normal. Private Sub mnu_restaurar_Click() Me.WindowState = vbNormal Me.Show End Sub O problema é que isto não está funcionando. A opção Restaurar nem aparece! No modo debug, com o ícone no System Tray, o evento Form_MouseMove não é chamado mesmo eu passando o mouse sobre o ícone no System Tray. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Me.WindowState = 1 And Button = 2) Then PopupMenu mnuIconTray End If End Sub Alguém sabe o porque? Obrigado. Abraços!