Private Sub Command1_Click()
Uyar = MsgBox("Your Computer Will Be Close" + " " + Text1.Text + " "
+ "Minute(s) Later", 36, "Action...")
If Uyar = 6 Then
Timer1.Enabled = True
Timer1.Interval = Val(Text1.Text) * 60000
Else
Cevap = MsgBox("Request canceled...", 0, "Cancel...")
End
End If
End Sub

Private Sub Timer1_Timer()
Call ShutDown(1)
End Sub