




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Сейчас этот форум просматривают: Yandex-бот и гости: 10