Key + Mouse Events


I was wandering if there is any way to add shortcuts to keys + clicks? I know there are shortcuts in Options>Keyboard but none that combine the mouse. For example I would like to add the following onto the alt key + RMB to change the current active layer to the object clicked?

Sub ChangeLayerToObject()
	Dim obj
	obj = Rhino.GetObject("Select Object in Target Layer!", 0, True, True)
	Dim objLayer
	objLayer = Rhino.ObjectLayer(obj)
End Sub

No idea if is possible but thought I would ask?