'Run as Constants
Private Const LOGON_WITH_PROFILE = &H1&
Private Const LOGON_NETCREDENTIALS_ONLY = &H2&
Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
Private Const CREATE_NEW_CONSOLE = &H10&
Private Const CREATE_NEW_PROCESS_GROUP = &H200&
Private Const CREATE_SEPARATE_WOW_VDM = &H800&
Private Const CREATE_SUSPENDED = &H4&
Private Const CREATE_UNICODE_ENVIRONMENT = &H400&
Private Const ABOVE_NORMAL_PRIORITY_CLASS = &H8000&
Private Const BELOW_NORMAL_PRIORITY_CLASS = &H4000&
Private Const HIGH_PRIORITY_CLASS = &H80&
Private Const IDLE_PRIORITY_CLASS = &H40&
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const REALTIME_PRIORITY_CLASS = &H100&
'Process type lib
Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type
'start up type lib
Private Type STARTUPINFO
    cb As Long
    lpReserved As Long
    lpDesktop As Long
    lpTitle As Long
    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 Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type
'API call for Run As
Private Declare Function CreateProcessWithLogonW Lib "Advapi32" (ByVal _
  lpUsername As Long, ByVal lpDomain As Long, ByVal lpPassword As Long, ByVal _
  dwLogonFlags As Long, ByVal lpApplicationName As Long, ByVal lpCommandLine As _
  Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal _
  lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInfo As _
  PROCESS_INFORMATION) As Long
'API call for closing a handle
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As _
  Long
 
'local variable(s) to hold property value(s)
'and for use in internal methods
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName _
  As String, ByVal lpWindowName As String) As Long
 
 
 
 
Private mvarsUserName As String 'local
Private mvarsPassword As String 'local
Private mvarsCommand As String 'local
Private mvarsDomain As String 'local
 
 
Sub runas(Username As String, Password As String, Prog As String, startdir As _
  String)
 
Dim lpUsername As String, lpDomain As String, lpPassword As String, _
  lpApplicationName As String
Dim lpCommandLine As String, lpCurrentDirectory As String
Dim StartInfo As STARTUPINFO, ProcessInfo As PROCESS_INFORMATION
 
         lpUsername = Username
         ' lpDomain = mvarsDomain
         lpDomain = vbNullString
         lpPassword = Password
         lpApplicationName = vbNullString
         lpCommandLine = Prog
         lpCurrentDirectory = startdir 'use standard directory
         StartInfo.cb = LenB(StartInfo) 'initialize structure
         StartInfo.dwFlags = 0&
         CreateProcessWithLogonW StrPtr(lpUsername), StrPtr(lpDomain), StrPtr( _
           lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), StrPtr( _
           lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or _
           CREATE_NEW_PROCESS_GROUP, ByVal 0&, StrPtr(lpCurrentDirectory), _
           StartInfo, ProcessInfo
    '     CreateProcessWithLogonW StrPtr(lpUsername), StrPtr(lpDomain), StrPtr( 
    ' lpPassword), LOGON_NETCREDENTIALS_ONLY, StrPtr(lpApplicationName), StrPtr( 
    ' lpCommandLine), CREATE_DEFAULT_ERROR_MODE, ByVal 0&, StrPtr( 
    ' lpCurrentDirectory), StartInfo, ProcessInfo
 
         CloseHandle ProcessInfo.hThread 'close the handle to the main thread, 
         ' since we don't use it
         CloseHandle ProcessInfo.hProcess 'close the handle to the process, 
         ' since we don't use it
         'note that closing the handles of the main thread and the process do 
         ' not terminate the process
 
End Sub
 
 
 
 
Private Sub Command1_Click()
runas "Username", "Passwort", "120.reg", "c:\Temp"
End Sub