Pop-Up Menu Does Not Appear

[MarkR2207]

Good Afternoon,

The pop up menu that I have created does not display during runtime. Listed below is the code I am using. I have also set mnuRecordOptions as not visible and the sub menus as visible.

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then
frmCellPhone.PopupMenu (mnuRecordOptions)
End If

End Sub

Thanks for your suggestions in advance.

MarkR.