With ShExInfo
     .cbSize = Len(ShExInfo)
     .fMask = SEE_MASK_FLAG_NO_UI
     .hwnd = Form1.Handle
     .lpVerb = "open"
     .lpFile = My.Application.Info.DirectoryPath & "\vncviewer.exe"
     .lpParameters = ""
     .lpDirectory = "C:\"
     .nShow = SW_SHOWMINNOACTIVE
End With
 
Retval = ShellExecuteEx(ShExInfo)