Private Declare Function GetClassName Lib "user32" _
  Alias "GetClassNameA" (ByVal hwnd As Long, _
  ByVal lpClassName As String, ByVal nMaxCount As Long) _
  As Long
 
<font color=green>' CurHWnd = Fenster, dessen Klassennamen ermittelt werden 
' soll</font>
sClassName = String$(256, " ")
lRetVal = GetClassName(CurHWnd, sClassName, 255)
sClassName = Left$(sClassName, InStr(sClassName, _
  Chr$(0)) - 1)