Option Explicit
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
  ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal _
  hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Sub GetName()
    Dim Pt As POINTAPI, mWnd As Long
    Dim sClassName As String, returnValue As Long
 
    GetCursorPos Pt
    mWnd = WindowFromPoint(Pt.X, Pt.Y)
 
    sClassName = Space(256)
    returnValue = GetClassName(mWnd, sClassName, 256)
    Text1 = Left$(sClassName, returnValue)
End Sub
 
Private Sub Timer1_Timer()
  GetName
End Sub

Gru?

Ralf