Option Explicit 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    lA = ScaleX(x, Me.ScaleMode, vbPixels)

    Select Case lA
        Case WM_RBUTTONUP
            SetForegroundWindow Me.hwnd
            PopupMenu mnuTray, vbPopupMenuRightButton
    End Select
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    'Si la feuille n'a pas été déchargé par le programme lui même
    If UnloadMode <> vbFormCode Then
        Cancel = True       'Annule le déchargement
        Fin                 'Lance la procédure de fin
    End If
End Sub
Private Sub mnuQuit_Click()
    Fin
End Sub