获取窗体类名函数

Public Function GetWindowClassName(hWnd As Long) As String
Dim Buff As String
Buff = Space(255)
GetClassName ByVal hWnd, Buff, ByVal Len(Buff)
GetWindowClassName = Left(Buff, InStr(1, Buff, Chr(0)) - 1)
End Function