Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                        (ByVal hwnd As Long, _
                         ByVal lpOperation As String, _
                         ByVal lpFile As String, _
                         ByVal lpParameters As String, _
                         ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long


Const SW_HIDE =  0             'запустить спрятанным 
Const SW_SHOWNORMAL =  1       'запустить нормально 
Const SW_SHOWMINIMIZED =  2    'запустить минимизированным 
Const SW_SHOWMAXIMIZED =  3    'запустить максимизированным 
Const SW_SHOWNOACTIVATE =  4   'не активировать 
Const SW_SHOW =  5             'запустить показав окно 
Const SW_MINIMIZE =  6         'запустить минимизированным 
Const SW_SHOWMINNOACTIVE =  7  'запустить минимизированным не активируя 
Const SW_SHOWNA =  8           'запустить не активным 
Const SW_RESTORE =  9          'запустить не развернутым и не свернутым 

Private Sub Form_Load()
 ShellExecute Me.hwnd, "open", "c:\Base",  0 ,  0 , SW_SHOWMAXIMIZED
End Sub