Okay, try this (for the class names).
Code:
Dim sClass As String

sClass = Space(255)
iLength = GetClassName(hwnd, sClass, 255)
sClass = Left(sClass, iLength)

Debug.Print sClass