Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click



        '引数 

        Dim Hikisuu As String = ""



        'チェックボックス1がチェックされていたら、 

        If CheckBox1.Checked = True Then

            '引数に " -s" を追加する。 

            Hikisuu &= " -s"

        End If



        'チェックボックス2がチェックされていたら、 

        If CheckBox2.Checked = True Then

            '引数に "-f" を追加する。 

            Hikisuu &= " -f"

        End If



        MsgBox("shutdown.exe" & Hikisuu)



        'Shell("shutdown.exe" & Hikisuu) 



    End Sub