Question

VB如何检测焦点是否在窗体上，在线等！！！

我不知道怎么说，就是用鼠标点一下窗体窗体就算是在焦点上了吧，点击其他窗体，焦点又在其他窗体上，而这个窗体失去了焦点，语文不好，这样应该能明白了吧， 怎样检测是否在焦点上，，给个如果在焦点上form1.caption="在焦点上"，否者form1.caption="不在“

Answer 1

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetActiveWindow() = Me.hWnd Then
Me.Caption = "在"
Else
Me.Caption = "不在"
End If
End Sub