Как запустить команду оболочки, не открывая окно CMD в VB6

следующий код является частью моей программы VB6

Я использовал команду оболочки в VB, чтобы выполнить pscp.exe с флагами и аргументами

моя проблема в том, что когда VB запускает строку:

      Shell strCommand, 1  

он также открывает окно CMD на 2-4 секунды (Всплывающее окно CMD)

мой вопрос - можно ли запустить "Shell strCommand, 1" таким образом, чтобы окно CMD не открывалось?

Я имею в виду - я не хочу видеть всплывающее окно CMD при запуске Приложение VB

  Const cstrSftp As String = "D:\pscp.exe"
  Dim strCommand As String
  Dim pUser As String
  Dim pPass As String
  Dim pHost As String
  Dim pFile As String
  Dim pRemotePath As String
  pUser = "root"
  pPass = "pass123"
  pHost = "110.218.201.15"
  pFile = """D:\scan_ip.ksh""" 
  pRemotePath = "/var/tmp"

  strCommand = cstrSftp & " -sftp -l " & pUser & " -pw " & pPass & " " & pHost & ":" & pRemotePath & " " & pFile


  Shell strCommand, 1