我要点击一个Button1_Click后就运行shutdown -s -f -t 3600 这个命令怎么弄

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ProcID As Integer
        ' Start the Calculator application, and store the process id.
        ProcID = Shell("SHUTDOWN.EXE -S -T 3000", AppWinStyle.NormalFocus)
      
    End Sub