VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDelete 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3000
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.DirListBox Dir1 
      Height          =   3015
      Left            =   0
      TabIndex        =   6
      Top             =   0
      Width           =   2295
   End
   Begin VB.Timer Timer 
      Interval        =   1
      Left            =   3240
      Top             =   1320
   End
   Begin VB.CommandButton Cancel 
      Caption         =   "Cancel"
      Height          =   360
      Left            =   3240
      TabIndex        =   4
      Top             =   2600
      Width           =   1335
   End
   Begin MSComctlLib.ProgressBar Bar1 
      Height          =   255
      Left            =   2400
      TabIndex        =   3
      Top             =   1560
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
      Max             =   50
   End
   Begin MSComctlLib.ProgressBar Bar2 
      Height          =   255
      Left            =   2400
      TabIndex        =   2
      Top             =   1920
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
      Max             =   50
   End
   Begin MSComctlLib.ProgressBar Bar3 
      Height          =   255
      Left            =   2400
      TabIndex        =   1
      Top             =   2280
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
      Max             =   50
   End
   Begin MSComctlLib.ProgressBar Bar4 
      Height          =   255
      Left            =   2400
      TabIndex        =   0
      Top             =   2640
      Width           =   855
      _ExtentX        =   1508
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
      Max             =   25
   End
   Begin VB.Label Text 
      Caption         =   $"Delete.frx":0000
      Height          =   1095
      Left            =   2400
      TabIndex        =   5
      Top             =   120
      Width           =   2175
   End
End
Attribute VB_Name = "frmDelete"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Click As Integer

Function Click_Add()
Click = (Click + 1)
End Function

Private Sub Cancel_Click()
If Click = 0 Then
Text.Caption = "Do you really think I would have made a cancel button?"
Call Click_Add
ElseIf Click = 1 Then
Text.Caption = "Clicking cancel is not going to do anything."
Call Click_Add
ElseIf Click = 2 Then
Text.Caption = "I told you nothing would happen"
Call Click_Add
ElseIf Click = 3 Then
Text.Caption = "Seriously you are wasting your time"
Call Click_Add
ElseIf Click = 4 Then
Text.Caption = "Alright, it was just a joke"
Call Click_Add
Cancel.Caption = "Exit"
ElseIf Click = 5 Then
End
End If
End Sub

Private Sub Timer_Timer()
Bar1.Value = Str(Bar1.Value + 2)
If Bar1.Value = 50 Then
Bar2.Value = Str(Bar2.Value + 2)
Bar1.Value = 0
ElseIf Bar2.Value = 50 Then
Bar3.Value = Str(Bar3.Value + 2)
Bar2.Value = 0
ElseIf Bar3.Value = 50 Then
Bar4.Value = Str(Bar4.Value + 2)
Bar3.Value = 0
ElseIf Bar4.Value = 25 Then
Text.Caption = "Drive C deleted"
Timer.Enabled = False
End If
End Sub