VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   6960
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10365
   LinkTopic       =   "Form1"
   ScaleHeight     =   6960
   ScaleWidth      =   10365
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1
      Caption         =   "CLICK ME TO UNLOAD.......PLEASE....."
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2175
      Left            =   2640
      TabIndex        =   0
      Top             =   1560
      Width           =   4095
   End
   Begin VB.Timer Timer1
      Interval        =   100
      Left            =   360
      Top             =   360
   End
   Begin VB.Label Label1
      Alignment       =   2  'Center
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   2040
      TabIndex        =   1
      Top             =   360
      Width           =   6255
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
unloadagent
Unload Me
End Sub

Private Sub Form_Load()

loadagent
introagent
'Form1.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim gotoval As Integer, gointo As Integer
    gotoval = Me.Height / 2
    For gointo = 1 To gotoval
        Me.Height = Me.Height - 10
        Me.Top = (Screen.Height - Me.Height)  2
        If Me.Height <= 11 Then GoTo horiz
    Next gointo
horiz:
    Me.Height = 15
    gotoval = Me.Width / 2
    For gointo = 1 To gotoval
        Me.Width = Me.Width - 10
        Me.Left = (Screen.Width - Me.Width)  2
        If Me.Width <= 11 Then End
    Next gointo

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub