1、在窗体上添加时钟控件。
2、在Form_Load事件中,添加Timer1.Interval = 250
3、在代码窗口中,添加如下代码:
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Sub shift() '你自己的事件
ShowWindow Me.hWnd, SW_RESTORE
End Sub
Private Sub Timer1_Timer() '是否按下shift
If GetAsyncKeyState(vbKeyShift) Then shift
End Sub
当程序后台运行时,直接按一下Shift键,即可调出程序界面。