Crea due TextBox
trascina un timer
Private Sub Timer1_Timer()
Text1.Text = Time
If Text2.Text = Text1.Text Then
Shell ("Shutdown -S -F -T 0")
End If
End Sub
Enjoy !!!
Crea due TextBox
trascina un timer
Private Sub Timer1_Timer()
Text1.Text = Time
If Text2.Text = Text1.Text Then
Shell ("Shutdown -S -F -T 0")
End If
End Sub
Enjoy !!!
_____________________________________
La libertà è una strada che raramente viene percorsa dalla moltitudine !
_____________________________________
Permessi di invio
Rispondi quotando