Option Explicit



      Private Type PROCESS_INFORMATION

         hProcess As Long

         hThread As Long

         dwProcessId As Long

         dwThreadId As Long

      End Type



      Private Type STARTUPINFO

         cb As Long

         lpReserved As String

         lpDesktop As String

         lpTitle As String

         dwX As Long

         dwY As Long

         dwXSize As Long

         dwYSize As Long

         dwXCountChars As Long

         dwYCountChars As Long

         dwFillAttribute As Long

         dwFlags As Long

         wShowWindow As Integer

         cbReserved2 As Integer

         lpReserved2 As Long

         hStdInput As Long

         hStdOutput As Long

         hStdError As Long

      End Type



      Private Declare Function CreateProcess Lib "kernel32" _

         Alias "CreateProcessA" _

         (ByVal lpApplicationName As String, _

         ByVal lpCommandLine As String, _

         lpProcessAttributes As Any, _

         lpThreadAttributes As Any, _

         ByVal bInheritHandles As Long, _

         ByVal dwCreationFlags As Long, _

         lpEnvironment As Any, _

         ByVal lpCurrentDriectory As String, _

         lpStartupInfo As STARTUPINFO, _

         lpProcessInformation As PROCESS_INFORMATION) As Long



      Private Declare Function OpenProcess Lib "kernel32.dll" _

         (ByVal dwAccess As Long, _

         ByVal fInherit As Integer, _

         ByVal hObject As Long) As Long



      Private Declare Function TerminateProcess Lib "kernel32" _

         (ByVal hProcess As Long, _

         ByVal uExitCode As Long) As Long



      Private Declare Function CloseHandle Lib "kernel32" _

         (ByVal hObject As Long) As Long



      Const SYNCHRONIZE = 1048576

      Const NORMAL_PRIORITY_CLASS = &H20&

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long









Private Sub Command1_Click()

         Dim pInfo As PROCESS_INFORMATION

         Dim sInfo As STARTUPINFO

         Dim sNull As String

         Dim lSuccess As Long

         Dim lRetValue As Long

         



         sInfo.cb = Len(sInfo)

         lSuccess = CreateProcess(sNull, _

                                 "c:\windows\system32\notepad.exe", _

                                 ByVal 0&, _

                                 ByVal 0&, _

                                 1&, _

                                 NORMAL_PRIORITY_CLASS, _

                                 ByVal 0&, _

                                 sNull, _

                                 sInfo, _

                                 pInfo)

        

        Dim s As Double

        s = Timer

        Do

            DoEvents

        Loop While Timer - s < 5

        

        start = 0

                                 

        EnumThreadWindows pInfo.dwThreadId, AddressOf EnumThreadWndProc, 0

        

        'Debug.Print h

        Debug.Print Hex$(thehwnd)

        

        SetWindowPos thehwnd, 0, 0, 0, 100, 100, 0

                                 

        'pinfo.



         'MsgBox "Calculator has been launched!"



         'lRetValue = TerminateProcess(pInfo.hProcess, 0&)

         'lRetValue = CloseHandle(pInfo.hThread)

         'lRetValue = CloseHandle(pInfo.hProcess)



         'MsgBox "Calculator has terminated!"

End Sub

Option Explicit

'In a module

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Public Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

'variable used to list all the classnames

Public sClasses As String

Public start As Long

Public thehwnd As Long





Public Function EnumThreadWndProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

    Dim Ret As Long, sText As String

    

    If start = 0 Then

        thehwnd = hwnd

    End If

    start = start + 1

    'create a string-buffer

    sText = Space(255)

    'get the classname of the window handle

    Ret = GetClassName(hwnd, sText, 255)

    'cut off the unnecessary part of Chr$(0)'s

    sText = Left$(sText, Ret)

    'add this classname to the list of classnames

    sClasses = sClasses + sText + vbCrLf

    'continue the enumeration

    EnumThreadWndProc = 1

End Function