This will do it. Each do loop is just to give time for each procedure to complete befire sending a new command.
Option Explicit
Private Sub Form_Load()
Dim Pausetime, Start, Program
'Load Explorer
Program = Shell("c:\windows\explorer.exe", 1)
' wait...
If all you are doing is pressing the enter key to continue and are the only user on this computer the solution is very simple.
Go to My Computer/Control Panel/System
In the middle for the box change Primary Network Logon to Windows Logon.
All Done
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.