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_SHOWNORMAL = 1
ShellExecute(Me.Handle.ToString, vbNullString, "D:download\", vbNullString, _
  "C:\", SW_SHOWNORMAL)