Option Explicit
Private oMenu As Menu
 
Private Sub Form_Load()
Load Form2
Form2.Hide
Set oMenu = Form2.Menu1
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
If Button = 2 Then PopupMenu oMenu
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
set oMenu=nothing
Unload Form2
End Sub