Aktivt fönster  

Du kan i Visual Basic övervaka vilket av dina fönster som är aktivt. Detta fungerar bara på fönster som ingår i ditt projekt. Börja med att skriva den här koden till en ny modul. 
 
Declare Function GetWindowText Lib "user32" Alias _ 
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _ 
ByVal cch As Long) As Long 
Declare Function GetActiveWindow Lib "user32" () As Long 

Public Function ConvertCToVBString(InString As String) As String 
   ConvertCToVBString = Left(InString, Len(InString) - 1) 
End Function 
  
Eftersom det här exemplet ska övervaka fönstren så är det lämpligast att skriva koden i en Timer med intervallen på t.ex. 1000 (1 sekund). 
 
Private Sub Timer1_Timer() 
Dim hCurrent As Long, Buffer As String, nChars As Integer 
Buffer = Space(255) 
hCurrent = GetActiveWindow() 
nChars = GetWindowText(hCurrent, Buffer, 255) 
List1.AddItem ConvertCToVBString(Buffer) 
End Sub 
  
Innan du startar programmet behöver du skapa en list ruta med namnet "List1" som jag använt mig av i koden.