Class from caption

Is there anyway to get the
class of a window from the
known caption?

Yep, this should work

Code:

---

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Function captionfromclassname(caption As String) As String
Dim temp As String * 255, l As Long
    l = GetClassName(FindWindow(vbNullString, caption), temp, 255)
    captionfromclassname = Left(temp, l)
End Function

---