Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Sub Command1_Click() Dim a As Long a = FindWindowEx(Me.hWnd, 0&, vbNullString, vbNullString) Debug.Print a End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024