Membuat Popup

cara:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu [object]
End Sub

contoh

seandainya anda membuat menu seperti gambar disamping.. lalu anda buat coding seperti dibawah bawah ini:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu File
End Sub

maka yg akan muncul seperti gambar dibawah ini

Catatan: jika di menu editor anda buat File.Visible=False maka, ini tidak berpengaruh pada PopUp , di PopUp masih bisa muncul seperti biasa