1,451
社区成员
发帖
与我相关
我的任务
分享
Dim I As Integer
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
I = Index
Form1.PopupMenu YinCang
End If
End Sub
Private Sub YinC_Click()
Image1(I).Visible = False
End Sub