Skapa en ny modul, lägg följande kod där:

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public 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

Public Sub Test()
    Call ShellExecute(0, "open", "F:\Program", "", "", SW_SHOW)
End Sub
ShellExecute är en s.k. WinAPI-funktion, och kräver därför den lite besvärligare "Declare Function".