ايران ويج

سلام ،
میشه لطف کنید بگید اشکال این کد چیه که جای یه دونه CMD ، بینهایت CMD باز میشه ؟
می خوام با زدن دکمه ، CMD باز بشه و مثلا دستور DIR توش تایپ بشه ، ممنونم از همتون

کد: 
Private Sub Command1_Click()

    Shell "cmd.exe"

    Dim WinShell

    Set WinShell = CreateObject("Wscript.shell")

    WinShell.SendKeys "dir"

    WinShell.SendKeys "{ENTER}"

End Sub

davoodx