参考答案

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        'PopupMenu file
'或    Form1.PopupMenu file
'或    Call PopupMenu(file)
Call Me.PopupMenu(file)
    End If
End Sub