Controlsend keys [to not active window]

[goldenix]

I understand that i cant use SendKeys.SendWait("sampletext") to send keys to not active window. is there any other way can I do this?

            Dim ProcID As Integer
            ProcID = Shell("notepad.EXE")

            ControlSend ( "title", controlID, "string"

            title - The title of the window to access. 
            controlID - Send text to the 1st Edit control in the Notepad window 
            String - of characters to send to the control.

            ControlSend("Untitled - Notepad", "Edit1", "sampletext"
            ControlSend("Untitled - Notepad", "[CLASSNN:Edit1]", "sampletext")
            ControlSend("Untitled - Notepad", "[CLASS:Edit; INSTANCE:1]", "sampletext")