program handle omsat til title på programmet

'------------------------------- Form1 -------------------------------
Option Explicit

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

Public Function GetTitle(ByVal lhWnd As Long) As String
Dim strSpace As String * 255
  GetTitle = Left$(strSpace, GetWindowText(lhWnd, strSpace, 255))
End Function

Private Sub Timer1_Timer()
  Me.Caption = GetTitle(GetForegroundWindow)
End Sub
'------------------------------- Form1 -------------------------------

TAkker :)