Button As Integer, Shift As Integer, X As Single, Y As Single
Private Sub Label_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' это в одну строку :)
If Button = vbRightButton Then
'здесь необходимые тебе действия
End If
End Sub
Сейчас этот форум просматривают: Google-бот и гости: 29