Visual Basic - PopupMenu de VB6

AYUDA please me super urge si alguien me puede ayudar se lo agradecere gracias

Un ejemplo.

Para crear un PopupMenu debes hacer lo siguiente
Creas un form luego creas normalmente un menu en el formulario.

Archivo -> Nombre = mnuArchivo
Nuevo " = otros nombres
Abrir " "
Guardar " "
Salir " "

Despues insertas este codigo:

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

If Button = 2 Then
Form1.PopupMenu form1.mnuArchivo, 0, X, Y
End If

End Sub