Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpclassname As String, ByVal nMaxCount As Long) As Long
Private Sub Command1_Click()
	Dim leiming As String
	leiming = Space(255)
	GetClassName 句柄, leiming, 255
	Text1.Text = leiming
End Sub
'------------------------------------根据句柄来取得类名