Question

popupmenu方法为什么不能弹出菜单？

弹出菜单界面如上，代码，如下：Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
If Button = 2 Then
PopupMenu tianjia
End If
End Sub

Answer 1

把索引的值删掉就可以了，测试通过

Answer 2

改写如下吧：
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
If Button = 2 Then
PopupMenu Form1.tianjia.Item(0)
End If
End Sub