'Form
Call Module1.Temprun("TheNewDesktop", "explorer.exe", 10000)
 
'Module1
Public Function Temprun(ByVal DesktopName As String, ByVal Application As _
  String, ByVal Milliseconds As Long)
 
Dim sInfo As STARTUP_INFO
Dim pInfo As PROCESS_INFORMATION
 
hOriginalThread = GetThreadDesktop(GetCurrentThreadId())
hOriginalInput = OpenInputDesktop(0, False, DESKTOP_SWITCHDESKTOP)
hnewDesktop = CreateDesktop(StrPtr(DesktopName), ByVal 0&, ByVal 0&, 0, _
  GENERIC_ALL, ByVal 0&)
 
 
sInfo.cb = Len(sInfo)
sInfo.dwFlags = STARTF_USESHOWWINDOW
sInfo.lpDesktop = StrPtr(DesktopName)
sInfo.lpTitle = StrPtr(DesktopName)
sInfo.wShowWindow = SW_NORMAL
 
SetThreadDesktop (hnewDesktop)
SwitchDesktop (hnewDesktop)
 
CreateProcess StrPtr(Application), ByVal 0&, ByVal 0&, ByVal 0&, 1, _
  NORMAL_PRIORITY_CLASS, ByVal 0&, ByVal 0&, sInfo, pInfo
 
WaitForSingleObject pInfo.hProcess, INFINITE
Sleep Milliseconds
 
CloseHandle pInfo.dwProcessId
CloseHandle pInfo.dwThreadId
 
SwitchDesktop (hOriginalInput)
SetThreadDesktop (hOriginalThread)
CloseDesktop (hnewDesktop)
End Sub