有的笔记本如苹果McAir没有PrintScr按键，在的Windows系统中不方便，那么我们可以设置一个系统热键比如设置Shift+P来模拟这个按键。

新建From1（窗体），新建Command1到2（按钮CommandButton），Picture1（PictureBox），代码：

新建Module1（模块 Module1.bas），代码：

这里使用了《VB6 调用API使标题条闪烁，套用《三体》中的话“整个宇宙，将为你闪烁”》的闪烁技术以提醒按键成功。如果按键不起作用，请在Win10系统中搜索PtrScn去打开设置里面的开关。