THIS CODE WILL MAKE YOU TURN OFF/RESTART/STAND BY YOUR COMPUTER
THIS CODE WILL MAKE YOU TURN OFF/RESTART/STAND BY YOUR COMPUTER
API Declarations
'DECLARE
Private Declare Function SDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
Rate THIS CODE WILL MAKE YOU TURN OFF/RESTART/STAND BY YOUR COMPUTER
(1(1 Vote))
App.TaskVisible = False
End Sub
Private Sub lbl1_Change()
If Me.lbl1.Caption = 2 Then
SDialog 0
End If
If Me.lbl1.Caption = 2 Then
Me.lbl1.Caption = 0
End If
End Sub
Private Sub Timer1_Timer()
Me.lbl1.Caption = Val(Me.lbl1.Caption) + 1
End Sub
THIS CODE WILL MAKE YOU TURN OFF/RESTART/STAND BY YOUR COMPUTER Comments
No comments yet — be the first to post one!
Post a Comment