PrivateSub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyS And (Shift And vbCtrlMask) Then'此处插入按下组合键【Ctrl+S】后需要执行的代码End IfEnd Sub