Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu mnuTest, , X + Picture1.Left + Label1.Left, Y + Picture1.Top + Label1.Top End Sub
PopupMenu lby, , X + Picture1.Left + Label1.Left, Y + Picture1.Top + Label1.Top
PopupMenu lby ' 后面不要, , x, y
Private Sub CeHFlex_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu MnuMenu End If End Sub
PopupMenu mnuTest, , X + Picture1.Left + Label1.Left, Y + Picture1.Top + Label1.Top
End Sub
If Button = 2 Then
PopupMenu MnuMenu
End If
End Sub