Dim nTaskID As Long
  nTaskID = Shell("c:\windows\system32\mspaint.exe", vbMaximizedFocus)
  On Error Resume Next
  Do
    Err = 0
    DoEvents
    AppActivate nTaskID
  Loop Until Err = 0
  SendKeys "^v", True

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de