VERSION 2.00
Begin Form frmMain 
   Caption         =   "EVERLOCK v3.21c EVMOVE3.DLL Test Application"
   ClientHeight    =   2490
   ClientLeft      =   2340
   ClientTop       =   1680
   ClientWidth     =   6570
   Height          =   2895
   Left            =   2280
   LinkTopic       =   "Form1"
   ScaleHeight     =   2490
   ScaleWidth      =   6570
   Top             =   1335
   Width           =   6690
   Begin CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   450
      Left            =   4680
      TabIndex        =   7
      Top             =   1920
      Width           =   1215
   End
   Begin CommandButton cmdExecute 
      Caption         =   "&Do It!"
      Default         =   -1  'True
      Height          =   450
      Left            =   4680
      TabIndex        =   6
      Top             =   1320
      Width           =   1215
   End
   Begin CheckBox chkShowCounts 
      Caption         =   "Show &Install Counts Left"
      Height          =   270
      Left            =   840
      TabIndex        =   5
      Top             =   1440
      Value           =   1  'Checked
      Width           =   2535
   End
   Begin CheckBox chkConfirmMove 
      Caption         =   "&Confirm Install"
      Height          =   275
      Left            =   840
      TabIndex        =   4
      Top             =   1920
      Value           =   1  'Checked
      Width           =   2295
   End
   Begin TextBox txtDest 
      Height          =   285
      Left            =   2760
      TabIndex        =   3
      Text            =   "C:\TEST"
      Top             =   720
      Width           =   3495
   End
   Begin TextBox txtSrc 
      Height          =   285
      Left            =   2760
      TabIndex        =   2
      Text            =   "A:\"
      Top             =   240
      Width           =   3495
   End
   Begin Label lblDest 
      Alignment       =   1  'Right Justify
      Caption         =   "Destination Directory:    "
      Height          =   270
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   2175
   End
   Begin Label lblSrc 
      Alignment       =   1  'Right Justify
      Caption         =   "Source Directory:    "
      Height          =   270
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   2175
   End
End
Sub cmdExecute_Click ()

    'call the MoveAuth function to do all of the work
    ret = MoveAuth(txtSrc.Text, txtDest.Text, chkShowCounts.Value, chkConfirmMove.Value, frmMain.Caption)

    'report the results of the move function
    If ret = 0 Then
        MsgBox "Move Successful!", 64, frmMain.Caption
    Else
        MsgBox "Move Failed!", 16, frmMain.Caption
    End If

End Sub

Sub cmdExit_Click ()

    'Exit the program.
    End

End Sub

Sub Form_Load ()
    'Clear the form's initial data contents
    RegInfoDlg.txtName = ""
    RegInfoDlg.txtCompany = ""
    RegInfoDlg.txtLocation = ""
    RegInfoDlg.Tag = "0"
End Sub

