WINDOWS SHUTDOWN CODE

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ForeColor = Color.Black
Me.BackColor = Color.Silver
CheckBox1.Visible = False
ComboBox1.Items.Add("AM")
ComboBox1.Items.Add("PM")
End Sub
Private Sub ChooseOpt(ByVal sender As System.Object, ByVal e As System.EventArgs)
If RadioButton1.Checked Then
Button1.Text = RadioButton1.Text
Label3.Text = "Choose " & RadioButton1.Text & " Time"
End If
If RadioButton2.Checked Then
Button1.Text = RadioButton2.Text
Label3.Text = "Choose " & RadioButton2.Text & " Time"
End If
If RadioButton3.Checked Then
Button1.Text = RadioButton3.Text
Label3.Text = "Choose " & RadioButton3.Text & " Time"
End If

End Sub
Private Sub ShutdownEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
If RadioButton1.Checked Then
Shell("shutdown -s -t 30")
End If
If RadioButton2.Checked Then
Shell("shutdown -r -t 30")
End If
If RadioButton3.Checked Then
Shell("shutdown -l -t 30")
End If
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ChooseOpt(sender, e)
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
ChooseOpt(sender, e)
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
ChooseOpt(sender, e)
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim time As Integer
Dim st As String
If Now.Hour > 12 Then
time = Now.Hour - 12
st = "PM"
Else
time = Now.Hour
st = "AM"
End If

Label2.Text = "Current time is " & time & ": " & Now.Minute & ": " & Now.Second & ":" & st
If st = ComboBox1.SelectedItem Then
If NumericUpDown1.Value = time Then
If NumericUpDown2.Value = Now.Minute Then
If NumericUpDown3.Value = Now.Second Then
ShutdownEvent(sender, e)
End If
End If
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not ComboBox1.SelectedText = "AM" Or ComboBox1.SelectedText = "PM" Then
MsgBox("select the timestamp")
Else

MsgBox(" system will be " & Button1.Text & " at " & NumericUpDown1.Value & ":" & NumericUpDown2.Value & ":" & NumericUpDown3.Value)
CheckBox1.Visible = True
Button1.Enabled = False
CheckBox1.Checked = False
CheckBox1.Enabled = True
NumericUpDown1.Enabled = False
NumericUpDown2.Enabled = False
NumericUpDown3.Enabled = False
ComboBox1.Enabled = False
Label4.Text = "System will shutdown at " & NumericUpDown1.Value & ":" & NumericUpDown2.Value & ":" & NumericUpDown3.Value & ":" & ComboBox1.SelectedItem()
End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then
Button1.Enabled = True
CheckBox1.Enabled = False
NumericUpDown1.Enabled = True
NumericUpDown2.Enabled = True
NumericUpDown3.Enabled = True
ComboBox1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub
End Class