Option Explicit Private Const SW_HIDE = 0 Private Const SW_NORMAL = 1 Private Const SW_MAXIMIZE = 3 Private Const SW_MINIMIZE = 6 Private Const SW_RESTORE = 9 Private Const SW_SHOW = 5 Private Const SW_SHOWDEFAULT = 10 Private Const SW_SHOWMAXIMIZED = 3 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWNOACTIVATE = 4 Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long Private Sub Form_Load() ' replace WINDOWS with the name of your Windows folder. WinExec "C:\Windows\Explorer.exe", SW_SHOWDEFAULT End Sub