jalanin Perintah DOS dari VB

Berikut trik ngejalanin perintah DOS dari vb, siapa tau berguna.

Buat Project baru dengan 1 textbox dan 1 command button. Tambahin Kode ini:

Private Sub Form_Load()
Shell "cmd.exe", vbNormalFocus
End Sub

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1 + Chr$(13)
AppActivate "cmd.exe"
SendKeys "% ep", 1
End Sub

isi perintah Dos di text1, misal nya 'DIR *.EXE' lalu klik command1, maka perintah dos tersebut akan langsung dieksekusi..