how to read a keypress AND a mouseclick?

CS,
For the 'button clicked / keypress' problem see this post

As for LCtrl+RMB this works:

app=CreateWindow("bla",100,100,256,256)
canvas=CreateCanvas(32,32,64,64,app)

Const key_LCTRL=29
Global lctrl_flag=0

Repeat
	WaitEvent
	stat$=""
	If EventSource()=app
		If EventID()=$803 Exit
	EndIf
	If EventID()=$101 ; esc
		If EventData()=1 Exit
		lctrl_flag=(1 And EventData()=key_LCTRL)
	EndIf
	If EventID()=$102
		lctrl_flag=(0 And EventData()=key_LCTRL)
	EndIf
	If EventSource()=canvas
		If EventID()=$201 ; mouse buitton
			If EventData()=1 Exit
			If EventData()=2 ; right button
				If lctrl_flag stat$="Left Control + RMB"
			EndIf
		EndIf
	EndIf
	SetStatusText app,stat$
Forever

End