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