Установка времени на компьютере по клику - VB

Формулировка задачи:

Доброго времени суток.У меня есть программа которая в определенное время(8 часов утра) должна выполнять определенное действие.Но это сделать мне удалось К программе я добавил кнопку для теста. При клике на нее устанавливается время на компьютере 7:59.И в 8:00 можно уже просмотреть как работает программа. Но мне не удается изменить время на компьютере по клику.Я делаю примерно так,хотя и сам понимаю,что это не совсем верно:

Private Sub Command4_Click()
Hour(Time) = 7
Minute(Time) = 59
End Sub

Подскажите пожалуйста,как правильно реализовать данную задачу.Спасибо.

Решение задачи: «Установка времени на компьютере по клику»

textual
                            Листинг программы 
                        
                            shell "cmd /c time 7:59"