获取句柄类名

<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Sub GetClassName(ByVal hWnd As System.IntPtr, _
    ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer)
        ' Leave function empty     
    End Sub


Dim myClassName As New StringBuilder(256)
GetClassName(ParenthWnd, myClassName, 256)