请教这样一个程序应该怎么实现，谢谢

woody3221

运行后就在后台时刻监控当前激活的其他窗口是否存在输入焦点，发现存在后就弹出一个警告对话框，谢谢

woody3221

Private Declare Function GetFocus Lib "user32" () As Long

Private Sub Form_Load()
Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()
If GetFocus <> 0 Then
MsgBox "发现输入焦点"

End If
End Sub

'这样写只能在程序自身有输入焦点的时候弹出对话框，怎么才能让它对其他窗口也起作用，谢谢