VERSION 4.00
Begin VB.Form SecuerVee 
   Caption         =   "Secure Vee Test"
   ClientHeight    =   5835
   ClientLeft      =   3390
   ClientTop       =   1815
   ClientWidth     =   5910
   Height          =   6240
   Left            =   3330
   LinkTopic       =   "Form1"
   ScaleHeight     =   5835
   ScaleWidth      =   5910
   Top             =   1470
   Width           =   6030
   Begin VB.CommandButton Uncover 
      Caption         =   "Uncover"
      Height          =   1095
      Index           =   1
      Left            =   1440
      TabIndex        =   1
      Top             =   3480
      Width           =   3015
   End
   Begin VB.CommandButton Cover 
      Caption         =   "Cover"
      Height          =   1095
      Index           =   0
      Left            =   1440
      TabIndex        =   0
      Top             =   1080
      Width           =   3015
   End
End
Attribute VB_Name = "SecuerVee"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Declare Function SecureVee Lib "SecureVee" () As Integer
Private Declare Sub SecureVeeCleanup Lib "SecureVee" ()

Private Sub Cover_Click(Index As Integer)
    Dim result As Integer
    result = SecureVee
End Sub


Private Sub Uncover_Click(Index As Integer)
    SecureVeeCleanup
End Sub