ÏÂ Ãæ ½ö ¸ø ³ö Ïà ¹Ø ³Ì Ðò ¶Î £º 
     Dim RenHWND As Integer, WinText As String * 256 
     t% = 0: lstWindows.Clear 
     RenHWND = GetWindow(frmTop.hWnd, GW_HWNDFIRST) 
     Do 
     i% = GetWindowText(RenHWND, WinText, 256) 
     If i% <> 0 Then 
     l% = GetWindowTextLength(RenHWND) 
     If Left$(WinText, l%) <> frmTop.Caption And Left$(WinText, l%) <> App.Title Then 
     lstWindows.AddItem WinText: ReDim Preserve winHWND(t%) As Integer 
     winHWND(t%) = RenHWND: t% = t% + 1 
     End If 
     End If 
     RenHWND = GetWindow(RenHWND, GW_HWNDNEXT) 
     Loop Until RenHWND = 0 
     lstWindows.ListIndex = 0 
<END>