教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

Private Declare Function GetForegroundWindow Lib "user32" () As Long 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 

Private Sub Timer1_Timer() 
Dim TheWindows As String 
TheWindows = String(100, Chr$(0)) 
GetWindowText GetForegroundWindow(), TheWindows, 256 
Text1.Text = Text1.Text + vbCrLf + TheWindows 
End Sub