Private Sub Command1_Click()
 
  Dim WshShell As Object
  Dim sCmd     As String
  Dim lRet     As Long
 
  sCmd = "cmd /k title Ping & ping.exe"
  Set WShell = CreateObject("WScript.Shell")
  'https://msdn.microsoft.com/en-us/library/d5fk67ky%28v=vs.84%29.aspx
  lRet = WShell.run(sCmd, 1, True) 
 
End Sub
 
Private Sub Command2_Click()
 
  Dim WshShell As Object
  Dim sCmd     As String
  Dim lRet     As Long
 
  sCmd = "cmd /k title FTP & FTP.exe"
  Set WShell = CreateObject("WScript.Shell")
  lRet = WShell.run(sCmd, 1, True)
 
End Sub