Salut éssaye :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Frame1.Visible = True Then Exit Sub
If X > Me.Width - 1000 And Y < 1000 Then
Me.PopupMenu TonMenu, , X, Y
else
sendkeys"{ESC}", true
end if
end sub