ActiveForm
这是Forms集合的一个属性，用于返回活动窗口，如果没有活动窗口，则返回Nothing。
示例
Dim
frm
As WinForm.Form =
Forms.ActiveForm
If frm IsNot Nothing
Then
MessageBox.Show("活动窗口为:"
& frm.Name)
Else
MessageBox.Show("无活动窗口!"
)
End
If
提示：上面的代码在命令窗口执行的时候，会一直提示无活动窗口，理由是什么，大家可以自己想想。
本页地址：http://www.foxtable.com/webhelp/topics/1547.htm