shell cmd 질문입니다

안녕하세요 초보자 질문입니다.
Dim oShell
Set oShell = CreateObject(WScript.Shell)
oShell.run cmd /K ping naver.com -t
Set oShell = Nothing
End Sub위에서 실행하면 CMD창이 뜨고 입력이 되는데여.CMD창 아예 안뜨고 저거 입력할수있게 도와주세여ㅠ.최소화 말구요 .. 프로세스에서만 보이면서 실행되게끔..