[VB] ทำใมใช้คำสั่ง Shell ไม่ได้ครับเกิดจากสาเหตุไหน

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '------------------------------- Browse file---------------
        Dim objOpenFile = New OpenFileDialog()
        With objOpenFile
            .FileName = ""
            objOpenFile.Filter = "WAV Files|*.wav"
            If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                TextBox1.Text = .FileName
            End If
        End With
        FileCopy(TextBox1.Text, Application.StartupPath & "\RecogSystem\SoundEID.wav")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '------------------------------
        Shell("Cygnus.bat")
    End Sub