激活哪个窗体就锁住哪个窗口.rar (2.25 KB)

程序代码：

'函数功能：该函数返回前台窗口（用户当前工作的窗口）。
Private Declare Function GetForegroundWindow Lib "user32" () As Long


' 函数功能：该函数允许或禁止指定的窗口或控制接受鼠标输入或键盘输入。
'当输入被禁止时窗口不能接收鼠标单击和按键等类输入；当输入允许时，窗口接受所有的输入。
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, _
                                                    ByVal fEnable As Long) As Long

Private Sub Timer1_Timer()
    Dim hwnd As Long
    hwnd = GetForegroundWindow
    Call EnableWindow(hwnd, False)
End Sub