如何实现：按CTRL+1,就相当于点击picture控件

怎么实现：按CTRL+1,就相当于点击picture控件？
请教！

------解决方案--------------------
Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 And Shift = 2 Then Call Picture1_Click
End Sub

Private Sub Picture1_Click()
MsgBox "PICTURE CLICKED "
End Sub