VERSION 2.00
Begin Form Setup 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Donna Teaches Typing"
   ClientHeight    =   855
   ClientLeft      =   1905
   ClientTop       =   1665
   ClientWidth     =   2550
   Height          =   1260
   Icon            =   SETUP.FRX:0000
   Left            =   1845
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   2550
   Top             =   1320
   Width           =   2670
   Begin CommandButton Command2 
      Caption         =   "Exit"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   1320
      TabIndex        =   3
      Top             =   480
      Width           =   1095
   End
   Begin CommandButton Command1 
      Caption         =   "Ok"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   480
      Width           =   1095
   End
   Begin TextBox txtPassword 
      BorderStyle     =   0  'None
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   195
      Left            =   960
      PasswordChar    =   "ø"
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
   Begin Label lblUseless 
      BackStyle       =   0  'Transparent
      Caption         =   "Password:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
End
Sub Command1_Click ()
  If txtPassword.Text = "a" Then Me.Hide:RealSetup.Show
End Sub

Sub Command2_Click ()
  End
End Sub

Sub Form_Load ()
  Make3DControl txtPassword, 0

End Sub

Sub txtPassword_KeyPress (KeyAscii As Integer)
  If KeyAscii = 13 Then KeyAscii = 0: Command1_Click
End Sub