VERSION 5.00
Begin VB.Form MockSCreen
   BackColor       =   &H80000007&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   7095
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8550
   ForeColor       =   &H00000000&
   Icon            =   "MockScreen.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7095
   ScaleWidth      =   8550
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Label label
      Alignment       =   2  'Center
      BackColor       =   &H80000012&
      Caption         =   "It's now safe to turn off your computer "
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   1575
      Left            =   3720
      TabIndex        =   0
      Top             =   2880
      Width           =   5175
   End
End
Attribute VB_Name = "MockSCreen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x As Integer
Private Declare Function disable Lib _
"user32" Alias "SystemParametersInfoA" (ByVal a _
As Long, ByVal b As Long, c As Any, _
ByVal d As Long) As Long
'for help plz read disablekeys.txt

Private Sub Form_Load()

x = disable(97, True, False, 0)


End Sub






Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As Integer

If KeyAscii = 13 Then

If Text1.Text = Text1.Tag Then
a = disable(97, False, False, 0)

Unload Me

Else
  Text1.Text = ""
  End If
End If

End Sub